Заполнить вещественный вектор - Free Pascal

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

С помощью датчика случайных чисел заполнить вещественный вектор a[1..n] и вычислить сумму S = na1 + (n-1)a1a2+(n-2)a1a2a3 + ... + Спасибо.

Решение задачи: «Заполнить вещественный вектор»

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

const
  n = 10;
 
var
  a : array[1 .. n] of real;
  s, p : extended;
  i : integer;
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(20) * random;
    write(a[i]:7:3);
  end;
  writeln;
 
  p := 1; s := 0;
  for i := 1 to n do
  begin
    p := p * a[i];
    s := s + (n - i + 1) * p;
  end;
 
  writeln('s = ', s:10:5);
end.

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

Объявляются переменные: n - количество элементов вектора a, a - вектор, s и p - промежуточные переменные для вычислений, i - счётчик.
Задаётся начальное значение для генератора случайных чисел.
Заполняется вектор a случайными числами с помощью цикла for и функции random.
Выводится на экран содержимое вектора a с помощью цикла for и функции write.
Вычисляется значение переменной s, используя цикл for, переменные p и n, и операцию умножения.
Вычисляется значение переменной p, используя цикл for и операцию умножения.
Вычисляется значение переменной s, используя цикл for, переменные p и n, и операцию сложения.
Выводится на экран значение переменной s с помощью функции writeln и спецификацией формата 10:5.