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

program a_number;var n1, n2, k, s, n, i: integer;//n1, n2 - пределы поиска; //i - параметр цикла и проверяемое число;//k - копия числа i (n - меняется в цикле, i - постоянно в течение одного цикла);//n - число цифр в числе и показатель степени; //s - cумма цифр.beginwrite(\'Введите крайние числа интервала через пробел: \');Readln(n1, n2);Writeln(\'Число     Степень\');for i:= n1 to n2 dobegink:= i;repeat s:= s + k mod 10; n:= n + 1;k:= k div 10until k = 0;if power (s, n) = i then writeln(i:6, n:6);n:= 0;s:= 0endend.