Вычислить сумму ряда - Pascal ABC (12994)

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

Дано натуральное число n. Вычислить:

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

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

var  n,k,i:integer;
     s,f:real;
begin
write('Введите размер последовательности n>1 n=');
readln(n);
f:=-6;
s:=f;
for k:=2 to n do
 begin
  f:=-f;
  for i:=2*(sqr(k-1))+2 to 2*sqr(k)+1 do
  f:=f*i;
  s:=s+f;
 end;
writeln('S=',s);
end.

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

В начале кода объявляются переменные n, k, i, s и f, которые будут использоваться для хранения размеров последовательности, значения функции и суммы ряда соответственно.
Затем выполняется чтение значения переменной n из стандартного ввода.
Значение переменной f устанавливается равным -6.
Значение переменной s устанавливается равным значению переменной f.
Затем происходит цикл for, который выполняется от 2 до n.
Внутри цикла переменная f сбрасывается на свое начальное значение, то есть -f.
Затем происходит еще один цикл for, который начинается с 2(sqr(k-1))+2 и продолжается до 2sqr(k)+1. Здесь sqr(k-1) вычисляет квадрат размера предыдущего элемента последовательности, а 2*sqr(k)+1 определяет размер следующего элемента.
Внутри второго цикла значение переменной f умножается на i, что является произведением текущего размера и i.
Результат умножения добавляется к переменной s.
После окончания второго цикла переменная s увеличивается на значение переменной f.
Наконец, выводится значение переменной s, которое является суммой всех элементов последовательности.