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

uses crt;
var j,i,l,r,n:integer;
var d:real;
begin
  write('Введите l =');
  readln(l);
  write('Введите r =');
  readln(l);
  for i := l to r do
  begin
     n=0;
     for j := -trunc(exp(ln(i)/3)) to trunc(exp(ln(i)/3));
     begin
       d = n - j * j * j;
       d =exp(ln(d)/3);
       d = d - round(d);
       if (d<0) then d = -1 * d;
       if (d<0.00009) n= n+1;
      end
      if (n>=4) writeln(i);
  end
end.

uses crt;
var j,i,l,r,n:integer;
var d:real;
begin
  write('Введите l =');
  readln(l);
  write('Введите r =');
  readln(l);
  for i := l to r do
  begin
     n:=0;
     for j := -trunc(exp(ln(i)/3)) to trunc(exp(ln(i)/3)) do
     begin
       d := n - j * j * j;
       d :=exp(ln(d)/3);
       d := d - round(d);
       if (d<0) then d := -1 * d;
       if (d<0.00009) then n:= n+1;
      end;
      if (n>=4) then writeln(i);
  end
end.

uses crt;
var j,i,l,r,n:integer;
var d:real;
begin
  write('Введите l =');
  readln(l);
  write('Введите r =');
  readln(r);
  for i := l to r do
  begin
     n:=0;
     for j := -trunc(exp(ln(i)/3)) to trunc(exp(ln(i)/3)) do
     begin
       d := i - j * j * j;
       d :=exp(ln(d)/3);
       d := d - round(d);
       if (d<0) then d := -1 * d;
       if (d<0.0009) then n:= n+1;
      end;
      if (n>=2) then writeln(i);
  end
end.

Var a,b,x,y,n,i,j,k,c:LongInt;
Begin
repeat
writeln('Введите диапазон a<b');
readln(a,b);
until a<b;
c:=0;
for k:=a to b do
 begin
  x:=0;
  Repeat
   x:=x+1;
   y:=0;
   Repeat
    y:=y+1;
    n:=x*x*x+y*y*y;
    i:=1;
    Repeat
     i:=i+1;
     j:=0;
     Repeat
      j:=j+1
     Until (j>-i-1) or (i*i*i+j*j*j=n);
   Until (i>=n-1) or ((i*i*i+j*j*j=n) and (x<>i));
  Until (y>=x-1) or (i*i*i+j*j*j=n);
 Until i*i*i+j*j*j=n;
 if n=k then
  begin
   WriteLn(n,' = ',x,'^3 + ',y,'^3 = ',i,'^3 + ',j,'^3');
   c:=1
  end;
 end;
if c=0 then write('На данном интервале таких чисел нет')
End.

uses crt;
var a,b,i,k,x1,y1,x2,y2:integer;
begin
repeat
writeln('Введите диапазон натуральных чисел a<b');
readln(a,b);
until(a>0)and(a<b);
k:=0;
for i:=a to b do
 begin
  for y1:=1 to trunc(exp(1/3*ln(i))) do
  for x1:=y1 to trunc(exp(1/3*ln(i))) do
  if (x1*x1*x1+y1*y1*y1=i) then
   begin
    for y2:=y1 to trunc(exp(1/3*ln(i))) do
    for x2:=y2 to trunc(exp(1/3*ln(i))) do
    if (x2*x2*x2+y2*y2*y2=i)
    and(x1<>x2)and(y1<>y2)and(x1<>y2)and(y1<>x2)then
     begin
      write(i,'=',x1,'^3+',y1,'^3  ',x2,'^3+',y2,'^3');
      writeln;
      k:=1;
     end;
   end;
 end;
if k=0 then write('Таких чисел нет')
end.

var
  A, B, i, k, N, D: integer;
  count, x1, y1, x2, y2: byte;
  
begin 
  A := 1;
  B := 100000;
  for N := A to B do begin
    count := 0;
    i := 0;
    repeat
      k := i + 1;
      repeat
        D := i * i * i + k * k * k;
        if D = N then begin
          inc(count);
          if count = 1 then begin 
            x1 := i; 
            y1 := k 
          end
          else begin 
            x2 := i; 
            y2 := k
          end
        end;
        inc(k)
      until (D >= N);
      inc(i)
    until (i + 2 > k) or (count = 2);
    if count = 2 then writeln(N, ' = (', x1, ', ', y1, ') (', x2, ', ', y2, ')')
  end
end.

for x1:=y1 to trunc(exp(1/3*ln(i))) do

uses crt;
var l,r,n,i,j:integer;
    d:real;
begin
d:=0;
write('l=');readln(l);
write('r=');readln(r);
for i:=1 to r do
 begin
  n:=0;
  for j:=-trunc(exp(ln(i)/3))to trunc(exp(ln(i)/3)) do
   begin
    d:=i-j*j*j;
    if d>0 then d:=exp(ln(d)/3)
    else if d<0 then d:=-exp(ln(-d)/3)
    else d:=0;
    d:=abs(d-round(d));
    if d<0.00009 then inc(n);
   end;
  if n>=4 then writeln(i);
 end;
end.

if d<0.00009 then inc(n);

if frac(d)=0 then inc(n);