Спо информатике на написание программы в паскаль: найти сумму ряда 1-2+3-4++56

var i,s:integer;
begin
s:=0;
for i:=1 to 56 do
 if i mod 2=1 then s:=s+i else s:=s-i;
writeln('s = ',s);
end.

Результат:
s = -28