Сумма ряда числа - Pascal ABC

Здравствуйте. Как можно найти суму ряда числа, например 1-2+3-4+5...?

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

s:=0;
z:=-1;
for i:=1 to n do
 begin
  z:=-z;
  s:=s+z*i;
 end;

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

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