clrscr;
a := 371;
repeat
a := a + 1;
x := a div 100;
y := (a mod 100) div 10;
z := (a mod 100) mod 10;
s := (x * x * x) + (y * y *y) + (z * z * z);
until (a = s) or (a = 1000);
if (a < 1000) then
writeln('Dalsie armstrongovo cislo je ',a)
else
writeln('Dalsie armstrongovo cislo je vacsie nez 1000');
readln;