Цикл repeat until - PascalABC.NET

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

Помогите пожалуйста через repeat-until Вычислить y=cos(x)*cos(2x)*cos(3x)*...*cos(nx)

Решение задачи: «Цикл repeat until»

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

var 
  n : integer;
  p, x : real;
begin
  readln(n);
  readln(x);
  p := 1;
  repeat
    p := p * cos(n*x);
    dec(n);
  until n = 0;
  writeln('Результат = ', p);
end.

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

В данном коде задача заключается в вычислении значения функции на интервале от 0 до 2π, где значение функции на каждом шаге вычисляется как произведение числа на косинус аргумента. Полученное значение функции выводится на экран. Код имеет следующий порядок действий:

Ввод значения переменной n (числа итераций).
Ввод значения переменной x (шага итераций).
Инициализация переменной p значением 1.
Запуск цикла repeat до тех пор, пока значение переменной n не станет равным 0.
Внутри цикла вычисление значения переменной p как произведение числа на косинус значения переменной n и присваивание этого значения переменной p.
Уменьшение значения переменной n на единицу.
Повторение пунктов 5-6 до тех пор, пока значение переменной n не станет равным 0.
Вывод на экран значения переменной p с комментарием Результат =.