水题，直接模拟：
{
Author:wzx961008
Problem:UVa 10302-Summation of Polynomials
Verdict:Accepted
Language:PASCAL
Run Time:0.096s
Submission Date:2011-02-11 03:39:05
}
var n:longint;
ans,i:qword;
f:array[1..50000]of qword;
begin
while not eof do begin
readln(n);
ans:=0; i:=0;
while i<n do begin
inc(i);
if f[i]=0 then f[i]:=i*i*i;
ans:=ans+f[i];
end;
writeln(ans);
end;
end.
