Пусть N - натуральное число. Вычислить - Pascal ABC

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

Пусть N – натуральное число. Вычислить: y=1*2+2*3*4+3*4*5*6+...+N*(n+1)(n+2)*…*2n Решение должно быть написано с помощью циклов. Заранее огромное спасибо!

Решение задачи: «Пусть N - натуральное число. Вычислить»

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

var
  i, j, n: integer;
  tmp, sum: real;
begin
  write('N = ');
  readln(n);
  for i := 1 to N do
  begin
    tmp := 1;
    for j := i to i * 2 do
      tmp := tmp * j;
    sum := sum + tmp;
  end;
  writeln('Sum = ',sum);
  readln;
end.

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

Переменные объявлены: i, j, n, tmp, sum - целочисленные типы данных.
Задание начальных значений переменным: i, j, n := 1, 1, N.
Вывод значения переменной N на экран.
Чтение значения переменной N с экрана.
В цикле for i := 1 до N выполняется следующая последовательность действий:
- Создается временная переменная tmp со значением 1.
- Для j := i до i * 2 выполняется вложенный цикл.
  - Значение переменной j умножается на tmp.
  - Значение переменной tmp обновляется, равное сумме предыдущего значения и значения переменной j.
- Значение переменной sum обновляется, равное сумме предыдущего значения и значения переменной tmp.
Вывод значения переменной sum на экран.
Ожидание ввода с экрана.