var
 a, k, b: integer;

begin
readln (a);
if a>=0 then
for k:=1 to a do
b:=b+k
else
for k:=1 downto a do
b:=b+k;
writeln (b);

end.