var

  i, n: integer;
  c : real;

begin
  read(n);
  c := 0;
  if n > 0 then
  begin
    for i := 1 to n do
      c := n;
    write(c);
  end;
  if n <= 0 then
  begin
    for i := 1 downto n + 1  do
      c := (-((-n) * (1 - n) / 2) + 1);
    write(c);
  end;
end.

Доп. примеры/add. examples:
n=-5
-5+(-4)+(-3)+(-2)+(-1)+0+1

n=5
5+4+3+2+1

n=0
0+1

Арифмет. прогрессия/arithm. progression