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

var
  m, n, i, s: integer;
  q: real;
 
begin
  write('Введите n и m: ');
  readln(n, m);
  if n > m then
  begin
    s := n;
    n := m;
    m := s;
  end;
  writeln('Числа, удовлетворяющие условию: ');
  for i := n to m do
  begin
    q := power(abs(i), 1 / 3); 
    if (frac(q) = 0) and (power(q, 3) = abs(i)) then
      write(i:8);
  end;
end.

var n,m,x,i,k:integer;
begin
writeln('Введите 2 целых числа');
readln(n,m);
if n>m then
 begin
  x:=n;
  n:=m;
  m:=x;
 end;
k:=0;
writeln('Числа на интервале [',n,'..',m,'], модули которых являются кубами целых чисел');
for i:=n to m do
 begin
  if i=0 then x:=0
  else x:=trunc(exp(ln(abs(i))/3));
  if x*x*x=abs(i) then
   begin
    k:=1;
    write(i,' ');
   end;
 end;
if k=0 then write('Таких чисел нет');
end.

var
  n,m,i,j:longint;
function sq3(r:longint):longint;
var
  t:longint;
begin
  t:=round(exp(1/3*ln(abs(r))));  
  if r<0 then t:=-t;
  sq3:=t;
end;  
begin
  write('n,m=');readln(n,m);
  if n>m then begin i:=m; m:=n; n:=i; end;  
  for i:=sq3(n) to sq3(m) do begin
    j:=i*i*i;
    if (j>=n) and (j<=m) then writeln(i,'^3=',j);
  end;  
end.