Натуральное число называется числом армстронга, если сумма цифр числа, возведенных в n-ю степень, где n - количество цифр в числе, равна самому числу. напримерт153=1^3 5^3 3^3. найдитетвсе трехзначныеии четырехзначныеичисла армстронга

Var a,b,c,d,a2:integer;
begin 
 for a:=100 to 9999 do begin      
 d:=0;      
 a2:=a; 
 while (a2 <> 0) do begin
      b:= a2 mod 10;
      a2:= a2 div 10;
      if a<1000 then c:= (b*b*b)
      else c:=(b*b*b*b);
      d:= d+c;
   end;
       if (a = d) then writeln('число армстронга ==> ', a);
     end;
end.