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

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.