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