Составить программку нахождения медли свободного падения физического тела с высоты h

для тебя надо конкретное значение g

9,8

да

program delta;var h,g,t:real;beginwriteln('введите вышину');readln(h);t:=sqrt(2*h/9.8);writeln('время=',t);readln;end.

Для чего тут переменная g ?

G осталась по ошибке, а так ее не надобно совсем. Я прогу отредактировал

Время свободного падения на Земле:
Const
   g = 9.8;
Var
   h:real;
Begin
Write('h = ');
ReadLn(h);
WriteLn('t = ',sqrt(2*h/g));
End.


Время свободного падения на любой планетке:

Var
   h,g:real;
Begin
Write('h = ');
ReadLn(h);
Write('g = ');
ReadLn(g);
WriteLn('t = ',sqrt(2*h/g));
End.

Program delta;
var h,t:real;
begin
writeln('введите вышину');
readln(h);
t:=sqrt(2)*h/9,8;
writeln('время=',t);
readln;
end.