натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в 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.