Вообще по физике будет 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.