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.
Вот программа
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.
Вот программа