LET C=0
   FOR m=1 TO 10000
      FOR n=1 TO 10000
         LET S=(m+SQR(2)*n)*(m-SQR(2)*n)
         IF ROUND(S,6)=1 THEN
            LET C=C+1
            PRINT C;": ( ";m;", ";n;")"
         END IF
      NEXT n
   NEXT m
PRINT
PRINT "このプログラムは終了しました。"
END