Составить программу нахождения времени свободного падения физического тела с высоты h Формула t=√2×h/g

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

Время свободного падения на Земле: 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.