Камень падает в колодец. известно время падения. вычислить глубину колодца. : в тетради выполнить этапы программирования 1-3, после этого написать программу расчета глубины колодца (ввод цифры ноль - конец работы программы) и протестировать ее.

Var g,t:integer;
s:real;
begin
g:=10;
writeln('Время падения в секундах равно ');
read(t);
while t<>0 do
begin
s:=(g*sqr(t))/2;
writeln('Высота колодца равна ',s,' метров.');
writeln('Время падения в секундах равно ');
read(t);
end;
end.