program ketkob_osszeg;
uses Crt, Rutin;
const
 { a k”b”k ”sszegek‚nt el“ ll¢ sz mokat t rol¢ t”mb m‚rete }
 m=15000;
var
 a,f     : longint;
 i,j,k,l : longint;
 ii,jj,sz: longint;
 t       :  array[1..m] of longint;
 jel     : char;
 nincs   : boolean;

{ gyorsrendez“ algoritmus az el“ llt sz mokra }
procedure rend(l,r : integer);
var
  i, j : integer;
  x, y : longint;
begin
  i:=l; j:=r;
  x:=t[(l+r) div 2];
  repeat
    while t[i]<x  do Inc(i);
    while x<t[j] do Dec(j);
    if i<=j then
     begin
       y:=t[i]; t[i]:=t[j]; t[j]:=y;
       Inc(i); Dec(j);
     end;
  until i>=j;
  if l<j then rend(l,j);
  if i<r then rend(i,r);
end;

begin { f“program }
repeat
  ClrScr;
  Window(1,1,80,25);
  WriteXY(20,1,'K � T   K ™ B  ™ S S Z E G E   K � T F � L E K � P P E N');
  repeat
    WriteXY(5,3,'A keres‚s als¢ hat ra : '); LongRead(a);
  until a>0;
  repeat
    WriteXY(45,3,'a fels“ hat ra : '); LongRead(f);
  until f>a;
  {ablak a kifut s miatt }
  Window(1,5,80,25);
  { jj : az fels“ hat r k”bgy”ke az i ‚s a j hat ra }
  jj:=Round(Exp(Ln(f)/3));
  { az el“ ll¢ sz m sz ml l sa }
  k:=1;
  { k”b”sszegek el“ ll¡t sa }
  for i:=1 to jj do
   for j:=i to jj do
    begin
      sz:=i*i*i+j*j*j;
      if (sz>=a) and (sz<f) then begin t[k]:=sz; Inc(k); end;
    end;
  { gyorsrendez‚s }
  rend(1,k);
  { a kapott sz mok vizsg lata nincs el“ ll¢}
  nincs:=TRUE;
  for i:=1 to k-1 do
   { ha egyforma k‚t egym st k”vet“ sz m, akkor az legal bb k‚tf‚lek‚ppen
     el“ ll¡that¢ volt }
   if t[i]=t[i+1]
     then
      begin
        nincs:=FALSE;
        { ki¡rjuk a sz mot }
        Write(t[i]:24);
        for j:=1 to jj do
          for l:=j to jj do
           { ha megtal ltuk a felbont s t, akkor azt is ki¡rjuk }
           if t[i]=j*j*j+l*l*l then Write(' = ',l:3,'^3 + ',j:3,'^3');
        WriteLn;
      end;
 if nincs
   then WriteXY(15,10,'Az adott intervallumban nincs k‚t felbont s£ sz m!');
 WriteXY(45,21,'ESC kil‚p, b rmi m s £jra indul...');
 jel:=ReadKey;
 until jel=#27;
end.