Вычислить:p=a(a-n)(a-2n)...(a-n*n) - Pascal

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

Срочно нужна помощь Даны действительное число a и натуральное число n. Вычислить : p=a(a-n)(a-2n)...(a-n*n). p.s.в последней скобке n в квадрате

Решение задачи: «Вычислить:p=a(a-n)(a-2n)...(a-n*n)»

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

var a,res:real; i,n:byte;
begin
 writeln('Введи N');
 readln(n);
 writeln('Введи число A');
 readln(a);
res:=a;
       i:=1;
      while i<=n do begin
      res:=res*(a-i*n);
      inc(i);
      end;
writeln(res);
 
end.

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

В начале кода объявляются переменные a, res, i и n типа real и byte соответственно.
Затем происходит чтение значения переменной n из стандартного ввода и сохранение его в переменную n.
После этого происходит чтение значения переменной a из стандартного ввода и сохранение его в переменную a.
Значение переменной a присваивается переменной res.
Затем переменная i инициализируется значением 1.
В цикле while i меньше или равно n происходит следующее:
- Значение переменной res умножается на разность a и i*n.
- Значение переменной i увеличивается на 1.
После выхода из цикла while значение переменной res выводится на экран.