var a,a_2,n,j: integer;
var  i: array [0..10] of real;
var sum: real;
begin
write('Числа Амстронга: ');
for a:=100 to 9999 do
begin
n:=0;
sum:=0;
a_2:=a;
while a_2<>0 do
begin
i[n]:=a_2 mod 10;
n+=1;
a_2:=a_2 div 10;
end;
for j:=0 to n-1 do
sum:=power(i[j],n)+sum;
if (sum = a) then
write(a,' ');
end;
end.