Вычислить сумму по формуле - Free Pascal

Вычислить сумму по формуле

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

//введите n
//создайте массив a[1..n]
//посчитайте сумму
t:=1;
s:=0;
for i:=1 to n do
 begin
  t:=-t/i;
  s:=s+t*sqr(a[i])*a[i];
 end;

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

Вводится значение переменной n - количество элементов в массиве.
Создается массив a[1..n] размером n.
Переменная t инициализируется значением 1.
Переменная s инициализируется значением 0.
Запускается цикл for от 1 до n.
Внутри цикла переменной t присваивается значение -t/i.
Значение переменной t умножается на квадрат элемента массива a[i], и результат прибавляется к переменной s.
Цикл завершается.
Выводится значение переменной s - сумма элементов массива по формуле.