Вычислить суму ряда - Turbo Pascal (34028)

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

Помогите вычислить суму ряда. S=1*2+2*3*4+...+n*(n+1)*...*2n, n є N

Решение задачи: «Вычислить суму ряда»

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

program summa;
 
var n, p, s, i, j: integer;
 
begin
  repeat
    write('n = ');
    readln(n);
    if n < 1 then writeln('Error: n < 1, reenter.')
  until n > 0;
  s := 0;
  for j := 1 to n do
    begin
      p := 1;
      for i := j to 2 * j do p := p * i;
      s := s + p
    end;
  writeln('s = ', s);
  readln
end.

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

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