var N,a,i: real;begin readln(N); i:=1; a:=0; while i<=N do begin a:=a+power(i,3); i:=i+1; end; writeln(a);end.
Вот программа