FUNCTION SISYAGO(x,y)
   LET SISYAGO=INT(10^y*x+0.5)/10^y
END FUNCTION

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