记录编号	331363	评测结果	AAAAAAAAAA
题目名称	[NOIP 2015PJ]金币	最终得分	100
用户昵称	King、韶挚灬	是否通过	通过
代码语言	Pascal	运行时间	0.026 s
提交时间	2016-10-27 17:46:01	内存使用	0.17 MiB

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.