Среди всех трезначных чисел найти числа для которых верно утверждение :сумма кубов цифр этого числа равна самому числу. Составить Паскаль программу

Предыдущий
вопрос Следующий
вопрос

program ArmstrongNumbers
va
number, originalNumber, remainder, result : integer
begi
for number := 100 to 999 d
begi
originalNumber := number
result := 0
while originalNumber <> 0 d
begi
remainder := originalNumber mod 10
result := result + remainder * remainder * remainder
originalNumber := originalNumber div 10
end
if result = number the
writeln(number)
end
end.

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