Вычислить значение выражения - Turbo Pascal (29265)

Формулировка задачи:

Написать процедуру и функию для вычисления значения: y=cos x * cos x^2 *...*cos x^n

Решение задачи: «Вычислить значение выражения»

Листинг программы

function y(x: real; n: integer): real;
var i: integer;
    p, xn: real;
begin
  p := 1;
  xn := 1;
  for i:=1 to n do
    begin
      xn := xn * x;
      p := p * cos(xn)
    end;
  y := p
end;

Объяснение кода листинга программы

Создается функция y, которая принимает два аргумента: x (тип real) и n (тип integer).
Объявляются три переменные: i (тип integer), p (тип real) и xn (тип real).
Значение переменной p устанавливается равным 1.
Значение переменной xn устанавливается равным 1.
Запускается цикл for, который выполняется n раз, где n - это значение переменной i.
Внутри цикла значение переменной xn умножается на x (значение переменной x).
Значение переменной p умножается на cos(xn).
После завершения цикла значение переменной y устанавливается равным значению переменной p.
Функция y возвращает значение переменной y.