"тело брошено вертикально вверх с высоты н0,с начал скоростью v0,определить место положения и скорость тела в заданное время" написать программу для решения этой

Uses crt;
var h0,v0,g,v1:integer;
h,t1,t,h1,v:real;
begin
readln(t);
readln(h0);
readln(v0);
g:=10;
if (h0+v0*t-g*t*t/2<0) then
begin
t1:=v0/g;
t:=t-t1;
h1:=h0+v0*t1-g*t1*t1/2;
h:=h1+g*t*t/2;
v:=g*t;
end
else
begin
h:=h0+v0*t-g*t*t/2;
v:=v0-g*t;
end;
writeln;
writeln(h);
writeln(v);
end.