При расчёте высоты падения тело без начальной скорости h=g*t^2,составте таблицу для расчёта времени полёта тела с определённой высоты.

Вообще по физике будет gt^2/2, если так не нравится, я отмечу жирным это место в коде - исправите. Также в цикле можно диапазон высоты поменять.

uses crt;
const g=9.8;
var i:integer;
t:real;
begin
writeln('h   g');
for i:=1 to 20 do
begin
t:=sqrt(2*i/g);
writeln(i,'   ',t:0:3);
end;
end.