vara, b:integer;beginfor a:=1 to 9 dofor b:=1 to 0 doif (a+b)*(a+b)*(a+b)=(a*10+b)*(a*10+b) then writeln(a,b);end.
var
a, b:integer;
begin
for a:=1 to 9 do
for b:=1 to 0 do
if (a+b)*(a+b)*(a+b)=(a*10+b)*(a*10+b) then writeln(a,b);
end.