Тело брошено вертикально вверх с высоты Н0, с начал скоростью V0, определить место…

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