program Fermat_sejtes;
uses Crt, Rutin;
var x,y,z,w : longint;
    a,f,i   : integer;
    t       : real;
    jel     : char;
begin
repeat
 ClrScr;
 Window(1,1,80,25);
 WriteXY(10,1,' A Z  x^3 + y^3 + z^3 = t^3  E G Y E N L E T   M E G O L D Ź S A');
 repeat
   WriteXY(10,3,'Legyen az x,y,z nem kisebb mint '); IntRead(a);
 until a>0;
 repeat
   WriteXY(45,3,' ‚s nem nagyobb mint '); IntRead(f);
 until f>a;
 { ablakot nyitunk, hogy ne csŁsszon ki a hat r }
 Window(1,5,80,25);
 WriteLn;
 { i : a megold sok sz ma }
 i:=0;
 { a lehets‚ges megold sok el“ llˇt sa }
 for x:=a to f do
  for y:=x to f do
    for z:=y to f do
     begin
       { a k”b”k ”sszeg‚b“l k”bgy”k”t vonunk }
       t:=Exp(Ln(x*x*x+y*y*y+z*z*z)/3);
       { a kerekˇt‚si hiba nem lehet t”bb egy milli rdodn l }
       if Abs(t - Round(t))<1e-9
        then
         begin
          { a tal lt megold s kiˇr sa }
          Beep; Inc(i);
          WriteLn(i:13,'. megold s : x =',x:4,'  y =',y:4,'  z =',z:4,'  t =',Round(t):5);
         end;
    end;
 { ha nem volt megold s }
 if i=0 then WriteXY(20,10,' Az adott intervallumban nincs megold s !');
 WriteXY(45,21,'ESC kil‚p, b rmi m s tov bb...');
 jel:=ReadKey;
until jel=#27;
end.