Дан ряд чисел 1-2+3-4++56 найти сумму ряда нужно написать программу в pascal abc и нарисовать блок-схему.

Var
a,b,i:integer;
begin
for i:=0 to 56 do
begin
if i mod 2 = 0 then a:=a-i else a:=a+i;
end;
end.