паскаль с функцией и процедурой

program snaryad;
  const g=9.8; { Ускорение свободного падения }
        dx=2000; { Шаг изменения x в метрах }
  { Функция вычисления высоты y для заданного времени }
  function y(x,v0,alpha: real):real;
  begin
    y:=v0*(x/v0/cos(alpha))*sin(alpha)-g*(x/v0/cos(alpha))*(x/v0/cos(alpha))/2;
  end;
 
begin
  { Первый случай }
  v0:=35*1000/60; { Начальная скорость в м/с }
  alpha:=2*pi/6; { Начальный угол }
  x:=0;
  { Увеличиваем x до тех пор, пока y не станет <0, т.е. снаряд не "уйдет под землю" }
  while y(x,v0,alpha)>=0 do x:=x+dx;
  { Выводим результат }
  writeln('В первом случае x=',x/1000:-10:0,' км');
  { Второй случай, аналогично }
  v0:=30*1000/60; { Начальная скорость в м/с }
  alpha:=pi/4; { Начальный угол }
  x:=0;
  { Увеличиваем x до тех пор, пока y не станет <0, т.е. снаряд не "уйдет под землю" }
  while y(x,v0,alpha)>=0 do x:=x+dx;
  { Выводим результат }
  writeln('Во втором случае x=',x/1000:-10:0,' км');
  readln;
end.