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