program raf105;

var i:integer;

begin

for i:=1 to 10 do

writeln(i,' в кубе равно ',i**3);

end.

Программа написана на языке PascalABC