Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1) - Free Pascal

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

Написать код на языке Паскаль Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1)

Решение задачи: «Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1)»

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

const n=12;
var
  i, d: Integer;
  p: Real;
begin
  p:=1; d:=1;
  for i:=1 to n do begin
    p:=p/d/(d+3); Inc(d,3);
  end;
  Write('P=',p);
end.

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

В данном коде решается задача нахождения произведения 12-ти членов последовательности, общий член которой задан формулой an=1/(3n-2)(3n+1). Список действий:

Задается значение переменной n, которая равна 12.
Создаются три переменные: i, d и p. i - используется как счетчик в цикле. d - используется для хранения значений, которые в итоге должны быть перемножены. p - используется для хранения произведения.
Переменная p инициализируется единицей, а переменная d - единицей.
Запускается цикл, который выполняется 12 раз.
Внутри цикла значение переменной p обновляется путем деления на значение переменной d, которое равно сумме d и 3.
После каждой итерации значение переменной d увеличивается на 3.
После завершения цикла выводится значение переменной p, которое является произведением 12-ти членов последовательности. Вот как это выглядит в виде списка с номерами по порядку не больше 20 элементов:
Задается значение переменной n (12).
Создаются три переменные (i, d, p).
Переменная p инициализируется единицей, а переменная d - единицей.
Запускается цикл, который выполняется 12 раз.
Внутри цикла значение переменной p обновляется путем деления на значение переменной d, которое равно сумме d и 3.
После каждой итерации значение переменной d увеличивается на 3.
После завершения цикла выводится значение переменной p.