Напишите программу, которая находит все числа Армстронга из диапазона от A до B. Натуральное число из n цифр называется числом Армстронга, если сумма его цифр, возведенных в степень n, равна самому числу.

program a_number;

var n1, n2, k, s, n, i: integer;

//n1, n2 - пределы поиска;

//i - параметр цикла и проверяемое число;

//k - копия числа i (n - меняется в цикле, i - постоянно в течение одного цикла);

//n - число цифр в числе и показатель степени;

//s - cумма цифр.

begin

write ('Введите крайние числа интервала через пробел: ');

Readln (n1, n2);

Writeln ('Число Степень');

for i: = n1 to n2 do

begin

k: = i;

repeat

s: = s + k mod 10;

n: = n + 1;

k: = k div 10

until k = 0;

if power (s, n) = i then writeln (i:6, n:6);

n: = 0;

s: = 0

end

end.