Рекуррентная последовательность. - Free Pascal

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

Ребят, сможете помочь? a*(a+1)....(a+n-1) a,n с клавы вводим. Поможете сделать? Заранее биг спасибо)

Решение задачи: «Рекуррентная последовательность.»

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

uses crt;
var
a,n,i,p:integer;
begin clrscr;
write('a=');
read(a);
write('n=');
read(n);
p:=a;
for i:=1 to n-1 do
 begin
  a:=a+1;
  p:=p*a;
 end;
writeln('p=',p);
readkey;
end.

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

В этом коде используется язык программирования Free Pascal. Задача заключается в вычислении произведения элементов рекуррентной последовательности.

Переменная a инициализируется значением 1.
Переменная n инициализируется значением, введенным пользователем.
Переменная i инициализируется значением 1.
Переменная p инициализируется значением a.
Запускается цикл for, который выполняется n-1 раз.
Внутри цикла значение переменной a увеличивается на 1.
Значение переменной p обновляется как произведение текущего значения a и значения p.
После выполнения цикла выводится значение переменной p.
Программа ожидает нажатия клавиши для завершения работы.