Lab1_var8_z1

{Задача 1
Дано: натуральное n, действительные a1, a2,...,an. Вычислить: 
a1 + a2*(a2–1) + a3*(a3–1)*(a3–2) + a4*(a4–1)*(a4–2)*(a4–3)+
 + ... + an*(an–1)*(an–2)*...*(an–n+1)}

program Lab1_var8_z1;

var N, //количество чисел
    i,j:integer; //переменные циклов
    a, // действительное число
    P, // произведение а*(а-1)*...*(а-n)
    S:real; //итоговая сумма
    
Begin

//Контроль ввода значения N>0
Repeat
Writeln('Введите N>0 - количество действительных чисел:'); 
Readln(N);
until N>0;

// Начальное значение суммы
S:=0;

//Внешний цикл с параметром для ввода значений а
for i:=1 to N do
 begin
  Writeln('Введите ',i,'-e число:');
  Readln(a);
  P:=1; //начальное значение произведения
    // Внутренний цикл для вычисления произведения а*(а-1)*...*(а-n)
    for j:=0 to i-1 do
      P:=P*(a-j);
  S:=S+P; // увеличиваем итоговую сумму на P
 end;

Writeln('S = ',S); //вывод значения

End.