program z563;
uses crt;
var i,j,sq: LongInt;
Begin
clrscr;
Writeln('Кубические автоморфные числа: ');
For i:=10 to 999 do begin
sq:= sqr(i)*i; j:=i;
while (j<>0) and (j mod 10 = sq mod 10) do
begin
sq:= sq Div 10;
j:=j div 10;
End;
if j=0 then writeln(i,':', sqr(i)*i);
end;
END.