Информатика Паскаль - вопрос №145972

Правильно ли я решил эту задачу скажите пожалуйста!??

Вычислить время падения тела с высоты H с начальной скоростью V.

var Hmax,V,t,t1,t2,D: real; begin writeln('Введите начальную скорость'); readln(V); writeln('Введите высоту падения'); readln(Hmax); if V=0 then begin t:=sqrt((2*Hmax)/10); writeln('Время падения ',t:0:3); end else begin D:=(V*V)+(4*10*Hmax); if D>0 then begin t1:=(-V+sqrt(D))/20; t2:=(-V-sqrt(D))/20; if t1>0 then writeln('Время падения ',t1:0:3); end else writeln('Время падения ',t2:0:3); end; ifD=0 then begin t:=-V/2*10; writeln('Время падения ',t:0:3); end; end.

ноябрь 18, 2011 г.