Вычислить значение функции COX(X) с точностью ЕПСЕЛА=10^(-4), x изменяется от минус p до p с шагом p/8. Вычисление у оформить как функцию, результаты вывести в виде таблицы — Pascal(Паскаль)

Program PascalGuru;

const
  PI = 3.1436; { значение ПИ }

var
  x: real; { переменная икса }

begin
  x := -PI; { иксу присваиваем МИНУС ПИ }
  while (x < 3.1437) do { пока X миньше ПИ }
  begin
    writeln('x= ', x:7:4, ' | y=', cos(x):7:4); { выводим текущий результат }

    x := x + (PI / 8); { увеличиваем счётчик цикла }
  end;

  readln;

end.