PRINT
PRINT "ある自然数よりも大きくてそれに最も近いピタゴラス数"
PRINT "   ( ピタゴラス数 ＝ m^2 + n^2   : m, n は自然数 )"
PRINT
INPUT PROMPT "自然数は？ ":n
PRINT
LET n0=n
LET C=0
DO
   LET n=n+1 
   FOR i=1 TO SQR(n)-1
      LET m=INT(SQR(n-i^2))
      IF m^2+i^2 = n THEN EXIT FOR
   NEXT i
   LET C=C+1
   IF m^2+i^2 = n THEN EXIT DO
LOOP
PRINT "   ";n;"=";m;"^2 +";i;"^2"
PRINT
PRINT "それは";n0;"よりも";C;"大きい数です。"
PRINT
END