Ось приклад програми на Pascal, яка знаходить всі числа Армстронга з трьох цифр:

program ArmstrongNumbers;

var

  i, j, k, n, sum: integer;

begin

  writeln('Armstrong numbers with 3 digits:');

  for i:=1 to 9 do

  begin

     for j:=0 to 9 do

     begin

        for k:=0 to 9 do

        begin

           n:= i*100 + j*10 + k;

           sum:= round(power(i,3) + power(j,3) + power(k,3));

           if sum = n then

           begin

              writeln(n);

           end;

        end;

     end;

  end;

end.

Опис програми:

Змінні i, j, k використовуються для перебору всіх можливих комбінацій трьох цифр.

Змінна n містить значення числа, яке перевіряється на те, чи є воно числом Армстронга.

Змінна sum містить суму цифр, піднесених до 3-го степеня.

Функція power використовується для піднесення цифр до потрібного степеня.

Якщо значення змінної sum дорівнює значенню змінної n, то число n виводиться на екран.

Ця програма виведе на екран всі числа Армстронга з трьох цифр, які будуть відображені під час виконання програми. Можна змінити програму, щоб вона шукала числа Армстронга з будь-якою кількістю цифр, змінивши лічильники циклів та перевірку на кількість цифр у числі n.