var s,i,n:longint;
BEgin
     readln(n);
     s:=0;
     For i := 1 to abs(n) do
         s:=s+i;
     If n<0 then s:=1-s;
     Writeln(s);
End.
where is my mistake?