Напишите программу, которая находит все числа Армстронга на отрезке [ a , b ]

function Sum(n: integer): real;
var s: real;
begin
  s := 0;
  while n <> 0 do begin
    s := s + power(n mod 10, 3);
    n := n div 10;
  end;
  Sum := s;
end;
 
var a, b, i: integer;
    bool: boolean;
begin
  bool := false;
  read(a, b);
  for i := a to b do
    if Sum(i) = i then begin
      write(i, ' ');
      if not bool then bool := not bool;
    end;
  if not bool then write('-1');
end.

function Sum(n: integer): real;
var s: real;
    length, temp: integer;
begin
  temp := n;
  while temp <> 0 do begin
    temp := temp div 10;
    inc(length);
  end;
  s := 0;
  while n <> 0 do begin
    s := s + power(n mod 10, length);
    n := n div 10;
  end;
  Sum := s;
end;

var
  a, b, n, d, r, s, p, i, j, k: integer;
  f: boolean;
 
begin
  readln(a, b);
  f := true;
  for i := a to b do
    begin
      n := i;
      d := trunc(ln(n) / ln(10)) + 1;
      s := 0;
      for j := 1 to d do
        begin
          r := n mod 10;
          n := n div 10;
          p := r;
          for k := 2 to d do p := p * r;
          s := s + p
        end;
      if s = i
        then begin
          write(' ', i);
          f := false
        end
    end;
  if f then write(-1);
  writeln
end.

  temp := n; length := 0;