Как решить на паскале следующую простую задачу. Просчитать сумму ряда, но с чередующимися знаками. S=1-2+3-4+...+n

s :=0
for i:= 1 to n do begin
if (i mod 2 = 0) then S:= S - i;
else S:=S+i
end;

program abc;
var n,S,i:integer;
begin
writeln('Ââåäèòå N');
read(n);
i:=1;
s:=0;
for i:=1 to n do
if i mod 2 = 0 then S:=S-i
else S:=S+i;
writeln(S);
readln;
end.
Вот