Question

Написать программу, которая выводит на экран таблицу кубов от 1 до 50

Answer 1

Begin
for var i:=1 to 50 do begin
write(i*i*i:7);
if i mod 10 = 0 then writeln;
end;
end.