Объяснение:
var
a,b,s,i:longint;
begin
s:=0;
for i:=1 to 99 do
if (i mod 2 <>1) do s:=s+i;
end;
b:=s*s*s;
write(b);
end.
