Среди чисел из диапазона от a до b найти те, которые среди своих делителей содержат свой цифровой корень

var n,k,s :longint;
begin
read(n);
s:=n;
while s>9 do
begin
k:=s;
s:=0;
repeat
s:=s+k mod 10;
k:=k div 10;
until k=0;
end;
writeln(s);
end.

var k,p,sum,n,a,b,i : longint;
begin
readln (a,b);
for i:=a to b do
begin
k:=i;
n:=0;
sum:=0;
while k>0 do
begin
k:=k div 10;
inc (n);
end;
k:=i;
while k>0 do
begin
p:=1;
for i:=1 to n do
p:=p*(k mod 10 );
k:=k div 10;
sum:=sum+p
end;
if (i=sum) then write(i);
end;
end.

begin
  var a := ReadInteger('Начало диапазона: a =');
  var b := ReadInteger(' Конец диапазона: b =');
  var count := 0;
  for var n := a to b do
    begin
      var q := abs(n);
      while q > 9 do 
        q := q div 10 + q mod 10;
      if (q > 0) and (n mod q = 0) then
        begin
          Print(n);
          count += 1;
        end;
    end;
  WriteLn(NewLine, 'Среди чисел от ', a, ' до ', b, ', которые делятся на свой числовой корень = ', count);
end.

function pow(a, b : Integer) : Integer;
begin
  Result := a;
  for var i := 2 to b do
    Result *= a;
end;
 
begin
  var a := ReadInteger('Начало диапазона: a =');
  var b := ReadInteger(' Конец диапазона: b =');
  var count := 0;
  for var n := a to b do
    begin
      // сколько цифр в числе
      var p := 0;
      var d := abs(n); 
      repeat
        p += 1;
        d := d div 10;
      until d = 0;
      // сумма цифр в степени p
      var s := 0;
      var u := abs(n);
      repeat
        s += pow(u mod 10, p);
        u := u div 10;
      until u = 0;
      // если это число Армстронга
      if s = n then
        begin
          Print(n);
          count += 1;
        end;
    end;
  WriteLn(NewLine, 'Среди чисел от ', a, ' до ', b, ' чисел Армстронга = ', count);
end.

 var a,b,s,u,p,n,d,i,count,Result: integer;
function pow(a, b : Integer) : Integer;
 
begin
      readln(a);
    readln(b);
  Result := a;
  for  i := 2 to b do
    Result :=result* a;
 
 
begin
 
   count := 0;
  for  n := a to b do
    begin
  
       p := 0;
       d := abs(n);
      repeat
        p := p+1;
        d := d div 10;
      until d = 0;
   
      s := 0;
       u := abs(n);
      repeat
        s := s+pow(u mod 10, p);
        u := u div 10;
      until u = 0;
     
      if s = n then
        begin
 
          count :=count+1;
        end;
    end;
  WriteLn(  count);
end.