Решил сделать так. Можно написать через For
var
a,b,c:integer;
begin
repeat
readln(a,b);
until (a
if a>b then
begin
c:=a;
a:=b;
b:=c;
end;
if a mod 9 <> 0 then
begin
inc(a);
while (a mod 9 <> 0) do
inc(a);
while a
begin
writeln(a,'^3 = ',a*a*a);
a:=a+9;
end;
end
else
while a
begin
writeln(a,'^3 = ',a*a*a);
a:=a+9;
end;
end.