Найти сумму из N групп элементов ряда - Turbo Pascal

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

Ребят, нужна ваша помощь. Не могу решить задачу в конструкторе алгоритмов(PASCAL) Условия: "Найти сумму из N групп элементов ряда: S=1*2+2*3*4+3*4*5*6+4*5*6*7*8+..." Помогите пожалуйста

Решение задачи: «Найти сумму из 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;

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

Переменная s инициализируется значением 0.
Переменная n инициализируется значением, которое будет использоваться в цикле.
Переменная p инициализируется значением 1.
Переменная j инициализируется значением i.
Переменная p пересчитывается, умножая j на p.
Значение p добавляется к переменной s.
Цикл for завершается.
Код выполняется снова, начиная с шага 3, пока значение n больше или равно 0.
После завершения цикла, значение переменной s будет содержать сумму из N групп элементов ряда.