var x,a,c:longint;
begin
readln(a);
c:=0;
if a>1 then for x:=a downto 1 do begin c:=c+x; end;
if a<1 then for x:=a to 1 do begin c:=c+x; end;
writeln(c);
end.