Вычислить произведение сумм - Turbo Pascal

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

Задача на списки. Написать с использованием подпрограмм. Пусть с клавиатуры вводится последовательность вещественных чисел, где n - заранее неизвестная величина. Ввод завершается символом перевода строки. Вычислите произведение суммы:

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

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

program qq;
var
   i, n: integer;
   x : array [1..50] of real;
   s: real;
begin
   write ('Количество элементов последовательности n = ');
   readln (n);
   writeln ('Последовательность:');
   for i:= 1 to n do
      read (x[i]);
   s:=x[1]+x[2]+2*x[n];
   for i:=2 to n-1 do s:=s*(x[i]+x[i+1]+2*x[n-i+1]);
   writeln (s); 
end.

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

В программе объявлены переменные: i, n, x, s.
Программа считывает количество элементов последовательности n и каждый элемент последовательности с помощью функции read.
Затем программа вычисляет сумму элементов последовательности: s=x[1]+x[2]+2*x[n].
Далее, в цикле for происходит повторное вычисление суммы s, используя предыдущую сумму и текущие элементы последовательности: s=s(x[i]+x[i+1]+2x[n-i+1]).
Наконец, программа выводит значение переменной s.