Вычислить значение выражения - Pascal ABC (12831)

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

Даны натуральное число n, действительные числа a₁,a₂,…,a_n. Постарайтесь обойтись без массивов – в задаче нет необходимости сохранения значений a_i. Вычислить: S=-a₁/1!+a₂/2!-...+(-1)ⁿa_n/n!

Решение задачи: «Вычислить значение выражения»

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

z:=1;
f:=1;
s:=0;
for i:=1 to n do
 begin
  readln(a);
  z:=-z;
  f:=f/i;
  s:=s+z*a*f;
 end;

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

Переменная z инициализируется значением 1.
Переменная f инициализируется значением 1.
Переменная s инициализируется значением 0.
Запускается цикл for, который будет выполняться от 1 до n.
В цикле считывается значение переменной a с помощью функции readln().
Значение переменной z сбрасывается на противоположное значение.
Значение переменной f делится на значение i.
Значение переменной s увеличивается на сумму произведения значений переменных z, a и f.
Цикл for завершается.
Код не содержит вложенных списков.