Составить циклический алгоритм: вычислить сумму ряда - Free Pascal

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

Вычислите: P = 1 . 2 + 2 . 3 . 4 + 3 . 4 . 5 . 6 + ...+ N . (N+1) . ... . 2N. Не знаю что с этим делать. Препод сам долго думал и в итоге сомневаясь выдал что нужно вычислить выражение (P = 1 . 2 + 2 . 3 . 4 + 3 . 4 . 5 . 6 + ...) на "отрезках от n*(n+1) до 2n*(n+1) (1 . 2)-Умножить

Решение задачи: «Составить циклический алгоритм: вычислить сумму ряда»

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

uses Crt;
var n,i,j:integer;
    s,p:real;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
 begin
  p:=1;
  for j:=i to 2*i do
  p:=p*j;
  s:=s+p;
 end;
write('S=',s:0:0);
readln
end.

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

Программа на языке Free Pascal.
Используется для вычисления суммы ряда.
Пользователю предлагается ввести значение переменной n.
Переменная s инициализируется значением 0 и используется для хранения суммы ряда.
Переменная p инициализируется значением 1 и используется для хранения произведения чисел ряда.
Два вложенных цикла выполняются n раз.
Внутренний цикл выполняется 2*i раз, где i - значение внешнего цикла.
Значение переменной p обновляется на каждом шаге внутреннего цикла путем перемножения на текущее значение j.
Значение переменной s обновляется на каждом шаге внешнего цикла путем добавления значения переменной p.
После выполнения циклов выводится значение переменной s.
Программа завершается после чтения значения из консоли.