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.