составить программу на языке паскаль: S= 1-2+3-4+5-...(+,-)n.

помогите пожалуйста)))

 

var i,n,s:integer;begin  write('n = ');  readln(n);  for i:=1 to n do    if i mod 2 = 0 then dec(s,i) else inc(s,i);  write('S = ',s)end.

var n,i,rez:integer;beginwrite('Введите n: ');readln(n);rez:=0;for i:=1 to n doif odd(i) then rez:=rez+ielse rez:=rez-i;writeln('rez=',rez);end.