剩余天数(m-g)有2种
1.大于等于i:总金币直接+i*i,然后累加i天
2.小于i : 总金币剩下的天数*i,然后g=m
var
m,i,g,x:longint;
begin
readln(m);
i:=0; x:=0; g:=0;
while g<>m do
begin
i:=i+1;
if g+i<=m then begin x:=x+i*i; g:=g+i; end
else begin x:=x+i*(m-g); g:=m; end;
end;
writeln(x);
end.