var
f:textfile;
i,sum,n:integer;
begin
assign(f,'input.txt');
reset(f);
readln(f,n);
close(f);
for i:=1 to n do
sum:=sum+i;
assign(f,'output.txt');
rewrite(f);
writeln(f,sum);
close(f);
end.