Написать программу в PASCAL ABC, которая находит сумму ряда 1-2+3-4+...-28, используя цикл с предусловием

var c,i:integer;

begin

c:=0;

i:=1;

while i<=28 do begin

if i mod 2 = 1 then c:=c+i else c:=c-i;

i:=i+1;

end;

writeln(c);

end.