Натуральное число из n цифр является числом Армстронга, если сумма его

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