Вычислить произведение ряда - Pascal (80698)

задано n Вычислить : a(a-n)(a-2n)...(a-n^2) Реализовать только с помощью циклов

И а задано

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

var a,p:real;
     n,i:integer;
begin
//ввод a,n
p:=1;
for i:=1 to n do
p:=p*(a-i*n);
//вывод произведения
end.

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

Объявляется переменная a типа real - для хранения значения числа
Объявляется переменная p типа real - для хранения произведения
Объявляется переменная n типа integer и переменная i типа integer - для управления циклом
Вводится значение переменных a и n - ввод значения числа и значения количества итераций
Присваивается переменной p значение 1 - инициализация произведения единицей
Начинается цикл с переменной i от 1 до n
Для каждой итерации умножается значение p на разность a и i умноженное на n
Произведение зависит от значений a, n и i - итеративное вычисление произведения
Выводится результат вычисления произведения - вывод произведения
Конец выполнения программы