нужна программа на паскале для вычисления скорости свободного подения

const Shag = 0.5;       Vrem = 10; Var t : real; Function Vpad (t : real) : real;Begin   Vpad:=(9.8)*t End; BEGIN    t:=0;    repeat      writeln(Vpad(t) :10:10);      t:=t+shag    until t > vrem END.