program n;
var t, v, y, h, k, m, delta, a, f, r: real;
begin
t:= 0;
writeln('Ââåäèòå v');
readln(v);
writeln('Ââåäèòå äåëüòà');
readln(delta);
writeln('Ââåäèòå m');
readln(m);
writeln('Ââåäèòå r');
readln(r);
y:= 0;
while y>=0 do begin
f:= (-k*abs(v)*v)*0.5*0.4*3.14*r*r;
a:= -10.0+f/m;
y:= y+v*delta+a*delta*delta/2;
v:= v+a*delta;
t:= t+delta;
if y>h then h:=y;
end;
writeln('t= ', t, 'h= ', h);
end.