Натуральное число из n цифр является числом Армстронга, если сумма его цифр, возведенных в n-степень, равна самому (программа Паскаль)

program z1;
uses crt;
var a,b,c,n: integer;
begin
for a:=100 to 999 do
 begin
 c:=0;n:=a;
  while n<>0 do
  begin
      b:=n mod 10;
      c:=c+sqr(b)*b;
      n:=n div 10;
      end;
 if a=c then writeln (a);
end;
end.