求1-2+3-4...N（N小于30000）

program ldjg1;
var
　　n, s, i:integer;
begin
　　read(n);
　　s := 0;
　　for i := 1 to n do
　　　　if i mod 2 = 1 then
　　　　　　s := s+i
　　　　else
　　　　　　s := s-i;
　　writeln(s);
end.

=================== OR ======================

program ldjg1;
var
  n, s : integer;
begin
  write('Please input a number: ');
  readln(n);
  if n mod 2 = 0 then
      s := n div -2
  else
      s := n div 2 +1;
  writeln('sum: ', s);
  readln;
end.