Xét xem số nhập vào có phải là số Amstrong - Lê Quang Tuấn

program at;
uses crt;
var so,b,bx,p,j,h:integer;
    s:string;
begin
     clrscr;
     write('Nhap mot so bat ki: '); readln(so);
     p:=0; str(so,s); h:=so;
     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=h then writeln(h,' la so Amstrong') else writeln(h,' khong phai la so Amstrong');
     readln
end.