Ответы и объяснения

2013-02-23T20:46:08+00:00

var
i: integer;ans: real;

begin
ans := 0;
for i := 25 to 125 do ans := ans + i * i * i;
writeln(ans);
end.