program raf105;
var i:integer;
begin
for i:=1 to 10 do
writeln(i,' в кубе равно ',i**3);
end.
Программа написана на языке PascalABC
program raf105;
var i:integer;
begin
for i:=1 to 10 do
writeln(i,' в кубе равно ',i**3);
end.
Программа написана на языке PascalABC