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

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

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;
   if D=0 then begin
   t:=-V/2*10;
   writeln('Время падения ',t:0:3);
   end;
     end.

var a,b,c,s,p:real; 
begin 
readln(a); 
readln(b); 
readln(c); 
if (a=b)and(b=c) then begin 
WriteLn('Треугольник равносторонний'); 
s:=sqrt(3)*a*b/4; 
WriteLn('s=',s:3:3); 
end else if (a=b)or(b=c)or(a=c) then begin 
WriteLn('Треугольник равнобедренный'); 
p:=a+b+c; 
WriteLn('p=',p:3:3); 
end else WriteLn('Треугольник не равносторонний и не равнобедренный'); 
end.

var a,b,c,s,p,pp:real;
 begin
 writeln('Введите стороны треугольника');
 readln(a);
 readln(b);
 readln(c);
 if (a=b) and (b=c) then begin
 WriteLn('Треугольник равносторонний');
 p:=(a+b+c)/2;
 s:=sqrt(p*(p-a)*(p-b)*(p-c));
 WriteLn('s=',s:3:3);
 end else if (a=b)or(b=c)or(a=c) then begin
 WriteLn('Треугольник равнобедренный');
 p:=a+b+c;
 WriteLn('p=',p:3:3);
 end else WriteLn('Треугольник не равносторонний и не равнобедренный');
 end.