25 Пиров ЗА ОТВЕТ. Добрый денек, прошу поправить мой код. Его

25 Пиров ЗА ОТВЕТ. Добрый денек, прошу исправить мой код. Его сущность заключается в нахождении чисел Армстронга в интервале от 100 до 9999 ,но глюк этого кода содержится в том что он обретает числа только в промежутке от 100 до 999. Прошу поддержки. var a,b,c,d,a2:integer; begin for a:=100 to 9999 do begin d:=0; a2:=a; while (a2 amp;lt;amp;gt; 0) do begin b:= a2 mod 10; a2:= a2 div 10; c:= (b*b*b); d:= d+c; end; if (a = d) then writeln(39;число армстронга ==amp;gt; 39;, a); end; end.