记录编号	207352	评测结果	AAAAAAAAAA
题目名称	[NOIP 2015PJ]金币	最终得分	100
用户昵称	グッド大きな萌菌	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2015-11-12 18:24:41	内存使用	0.17 MiB

program r2015coin;
var
	i,k,n,sum,x:longint;
begin
	assign(input,'2015coin.in');reset(input);
	assign(output,'2015coin.out');rewrite(output);
	readln(k);
	n:=1;
	x:=1;
	for i:=1 to k do
		begin
			if x<=n then
			begin
				sum:=sum+n;
				x:=x+1;
			end;	
			if x>n then
			begin
				n:=n+1;
				x:=1;
			end;
		end;
	writeln(sum);
	close(input);close(output);
end.