program ArmstrongNumbers;
var
number, originalNumber, remainder, result : integer;
begin
for number := 100 to 999 do
begin
originalNumber := number;
result := 0;
while originalNumber <> 0 do
begin
remainder := originalNumber mod 10;
result := result + remainder * remainder * remainder;
originalNumber := originalNumber div 10;
end;
if result = number then
writeln(number);
end;
end.

Эта программа находит и выводит все трехзначные числа, для которых сумма кубов цифр равна самому числу.