var s,i,n:integer;
begin
     readln(n);
     s:=0;
     For i := 1 to abs(n) do
         s:=s+i;
     If n<0 then s:=1-s;
     Write(s);
End.