Найти произведение членов ряда - Pascal (81103)

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

Разработать программу по заданию с использованием операторов организации счётного цикла и ветвления. Последовательно вводятся целые числа: n и X1, X2, ..., Xn. Вычислить величину X1·(X1+X2)·(X1+X2+X3)·(X1+X2+X3+X4)·...·(X1+X2+...+Xn).

Решение задачи: «Найти произведение членов ряда»

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

var n,i:integer;
    x,s,p:real;
begin
write('n=');
readln(n);
writeln('Введите ',n,' чисел');
s:=0;
p:=1;
for i:=1 to n do
 begin
  readln(x);
  s:=s+x;
  p:=p*s;
 end;
write('P=',p:0:2);
end.

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

Создаются переменные n, i, x, s и p и присваиваются им начальные значения.
Выводится запрос на ввод числа n.
Выводится сообщение о том, что нужно ввести n чисел.
Переменная s инициализируется значением 0, а переменная p - значением 1.
Запускается цикл for, который выполняется n раз.
На каждой итерации цикла считывается число x, переменная s увеличивается на сумму этого числа, а переменная p умножается на s.
После завершения цикла выводится значение переменной p.
Код завершается.