记录编号	207195	评测结果	AAAAAAAAAA
题目名称	[NOIP 2015PJ]金币	最终得分	100
用户昵称	gg	是否通过	通过
代码语言	Pascal	运行时间	0.009 s
提交时间	2015-11-11 14:01:22	内存使用	0.17 MiB

var
a,i,j,k,m:longint;
begin
assign(input,'2015coin.in');
assign(output,'2015coin.out');
reset(input);
rewrite(output);
read(k);
while m<k do
begin

i:=i+1;
m:=m+i;


j:=j+i*i;



end;
if k-m+i>0 then j:=(k-m+i)*i+j-i*i;

write(j);
close(input);
close(output);
end.