Вывести высоту полёта каменя через каждие 0,5 секунды

program Project2;
 
uses
  crt;
 
type
   nomer=0..150;       {Создаем тип для экономии памяти}
 
var
  a:array[1..9,1..16] of nomer;       {создаем массив... типа дом))}
  i,j:nomer;
  m:integer;       {вводимое число}
 
Begin
writeln('Poisk kavrtiri v dome');writeln;
write('Vvedite Nomer Kvartiri:  ');readln(m);       {считываем число}
 
if m>144 then writeln('Takoj kvartiri net')       {если оно больше чем квартир в доме, тогда пишем, что такой нет}
else begin        {иначе начинаем}
 
a[1,1]:=1;       {записываем в матрицу первый элемент}
For i:=2 to 9 do a[i,1]:=a[i-1,1]+4;       {заполняем первый столбик массива}
 
For i:=1 to 9 do begin         {начинаем заполнять тамбицу по рядам}
   a[i,5]:=a[i,1]+36;a[i,9]:=a[i,1]+36*2;a[i,13]:=a[i,1]+36*3;       {в каждом ряду записываем первые, опорные элементы}
   for j:=2 to 4 do a[i,j]:=a[i,j-1]+1;        {заполняем ячейки первого подезда}
   for j:=6 to 8 do a[i,j]:=a[i,j-1]+1;       {второго}
   for j:=10 to 12 do a[i,j]:=a[i,j-1]+1;       {третьего}
   for j:=14 to 16 do a[i,j]:=a[i,j-1]+1;       {четвертого}
end;
 
write('Koordinati kvartiri:  ');
 
for i:=1 to 9 do       {шаримся по матрице}
  begin
    for j:=1 to  16 do    {в каждой строке смотрим каждую ячейку}
      If a[i,j]=m then       {когда нашли номер я одной из ячеек}
         begin
           case j of        {так как джей это номер столбца}
           1..4:    writeln('Podjezd nomer -1-.  Etag nomer -',i,'-.');        {то если джей от 1 до 4 пишим что это первый этаж}
           5..8:     writeln('Podjezd nomer -2-.  Etag nomer -',i,'-.');       {иначе второй}
           9..12:    writeln('Podjezd nomer -3-.  Etag nomer -',i,'-.');       {третий}
           13..16:      writeln('Podjezd nomer -4-.  Etag nomer -',i,'-.');       {четвертый}
           end;
          break;
         end;
  end;
end;
writeln;
writeln('Press Enter For Exit');        {выход}
readln;
End.

program Project2;
 
var vis,h,t:real;
 
begin
  t:=0;
  h:=100;
  repeat
    vis:=h-9.8*(t*t)/2;
    if vis<0 then
     vis:=0;
    Writeln(vis:10:4,'m');
    t:=t+0.5;
  until vis=0;
  ReadLn;
end.

program Project2;
 
var x,n,cen:real;
     g:integer;
begin
   WriteLn('vvedi x:');
   ReadLn(x);
   WriteLn('vvedi n:');
   ReadLn(n);
   g:=0;
   cen:=x;
     repeat
         cen:=cen+x*14/100;
         g:=g+1;
     until cen>n;
   WriteLn('Let=',g,' ',cen:1:3);
   ReadLn;
end.

program Project2;
 
var x,n,cen:real;
    g:integer;
begin
   WriteLn('vvedi x:');
   ReadLn(x);
   WriteLn('vvedi n:');
   ReadLn(n);
   g:=0;
     cen:=x;
       repeat
          cen:=cen+x*14/100;
          g:=g+1;
       until cen>n;
   WriteLn('Let=',g,' ',cen:1:3);
   ReadLn;
 end.