Số Amstrong - Lê Quang Tuấn

program soamstrong;
uses crt;
var  i,so,p,b,j,bx:integer;
     s:string;
begin
     clrscr;
     for i:=1 to maxint do
         begin
         so:=i; p:=0; str(i,s);
         repeat
               b:=so mod 10;    so:=so div 10;
               bx:=b;
               for j:=2 to length(s) do
               bx:=bx*b;
               p:=p+bx;
         until so=0;
         if p=i then
         writeln(i,'':3);
         end;
     readln
end.