PRINT
PRINT "エジプト式分数 ＝ １ "
PRINT
PRINT "1/x + 1/y + 1/z = 1"
PRINT
FOR x=1 TO 10
   FOR y=x TO 10
      FOR z=y TO 10
         IF x*y+y*z+z*x=x*y*z THEN       
            PRINT x;y;z
         END IF
      NEXT z
   NEXT y
NEXT x
PRINT
PRINT
FOR x=1 TO 10
   FOR y=x TO 10
      FOR z=y TO 10
         IF (x-1)*(y-1)*(z-1)=x+y+z-1 THEN
            PRINT x;y;z
         END IF
      NEXT z
   NEXT y
NEXT x
PRINT
PRINT
PRINT "1/x + 1/y = 1"
PRINT
FOR x=1 TO 10
   FOR y=x TO 10
      IF x+y=x*y THEN
         PRINT x;y
      END IF
   NEXT y
NEXT x
PRINT
PRINT
END