На заданном числовом промежутке требуется найти все числа, кубический корень из которых равен сумме его цифр

uses
  crt;
 
var
  a, i, n, m: integer;
  b, sum: real;
  f: boolean;
 
begin
  f := false;
  writeln('Введите начало отсчета:');
  readln(n);
  writeln('Введите  конец отсчета:');
  readln(m);
  for i := n to m do
  begin
    a := i;
    b := exp(ln(a) / 3);
    while a > 0 do
    begin
      sum := sum + (a mod 10);
      a := a div 10;
    end;
    if sum = b then
    begin
      writeln(i, ':  сумма цифр= ', sum, '  кубический корень= ', b);
      f := true;
    end;
  end;
  if f = false then
    writeln('На данном промежутке нет чисел удовлетворяющих условию');
  readln;
end.

if (frac(b)=0)and(sum = trunc(b) then

var
  a, i, n, m: integer;
  b, sum: real;
  f: boolean;
 
begin
  f := false;
  writeln('Введите начало отсчета:');
  readln(n);
  writeln('Введите  конец отсчета:');
  readln(m);
  
  for i := n to m do
  begin
    a := i;
    b := exp(ln(a) / 3);
    while a > 0 do
    begin
      sum := sum + a mod 10;
      a := a div 10;
    end;
    writeln(i,':',b:2,sum:2);
    if sum = b then
    begin
      writeln(i, ':  сумма цифр= ', sum, '  кубический корень= ', b);
      f := true;
    end;
  end;
  if f = false then
    writeln('На данном промежутке нет чисел удовлетворяющих условию');
  readln;
end.

uses crt;
//является ли число полным кубом и какого числа
function IsKub(n:integer):integer;
var k:integer;
begin
k:=1;
while k*k*k<n do inc(k);
if k*k*k<>n then result:=-1
else result:=k
end;
//сумма цифр числа
function SumCif(n:integer):integer;
var m,s:integer;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10
 end;
result:=s
end;
var  a,b,i,k,n:integer;
begin
repeat
writeln('Введите диапазон натуральных чисел');
readln(a,b);
until(a>0)and(b>a);
n:=0;
for i:=a to b do
if IsKub(i)=SumCif(i)  then
 begin
  n:=1;
  writeln('Число=',i,' сумма цифр=',SumCif(i));
 end;
if n=0 then  writeln('На данном промежутке нет чисел удовлетворяющих условию');
end.