Найти все трехзначные числа Армстронга - Turbo Pascal

Формулировка задачи:

Найти все трехзгачные числа Амстронга( числа, равные сумме кубов своих цифр)

Решение задачи: «Найти все трехзначные числа Армстронга»

Листинг программы

var
  i, a, b, c : integer;
begin
  for i := 100 to 999 do
    begin
      a := i mod 10;
      b := i div 100;
      c := (i div 10) mod 10;
      if (i = a * a * a + b * b * b + c * c * c) then Writeln(i);
    end;
  Readln;
end.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal происходит поиск всех трехзначных чисел Армстронга. Переменные i, a, b и c используются для вычисления чисел Армстронга. Для каждого числа от 100 до 999 выполняется следующий алгоритм:

Переменная a содержит остаток от деления числа на 10.
Переменная b содержит частное от деления числа на 100.
Переменная c содержит остаток от деления числа на 10.
Проверяется условие, что число равно сумме в квадрате каждого разряда (10 в степени позиции разряда).
Если условие выполняется, то число выводится на экран. В конце программы предлагается ввести любое число, после чего программа завершается.