pacical语言 1-2+3-4+5-6 如何编程?

var
sign，s，i:longint;
begin
s:=0;
sign:=-1;
for i:=1 to 6 do begin
sign:=-sign;
s:=s+sign*i;
end;
writeln(s);
end.