program CubesOfNumbers;
varA, B, i: Integer;
beginA := 1;B := 10;
for i := A to B dowriteln('Куб числа ', i, ' = ', iii);end.
program CubesOfNumbers;
var
A, B, i: Integer;
begin
A := 1;
B := 10;
for i := A to B do
writeln('Куб числа ', i, ' = ', iii);
end.