Program   Vaba_langemine;
const
g= 9.80665;
var
Korgus, Torn, t, DeltaT: real;
begin
Write('Torni kärgus meetrides on  ');
Readln(Torn);
Write('Intervall sek. on  ');
Readln(DeltaT);
Writeln;
Writeln('Aeg' :10,'       Kärgus' :10);
t:=0.0;
Korgus:=Torn;
while Korgus > 0.0 do
begin
Writeln(t :10:2, ' sek.', Korgus :10:2, ' m.');
t:=t+DeltaT;
Korgus:=Torn - 0.5*g*t*t
end;
Writeln;
Writeln('Pl„rts!');
Writeln
end.