PRINT
PRINT "ある自然数は ３ で割ると ａ 余り、"
PRINT "             ５ で割ると ｂ 余り、"
PRINT "             ７ で割ると ｃ 余ります。"
PRINT "この条件に当てはまる自然数のうち最も小さいものを記述します。"
PRINT
PRINT "  a  b  c     数    a   b   c"
FOR a=0 TO 2
   FOR b=0 TO 4
      FOR c=0 TO 6
         LET X=(70*a+21*b+15*c)-INT((70*a+21*b+15*c)/105)*105
         PRINT " ";a;b;c;"   ";
         PRINT USING "###":X;
         PRINT "   ";MOD(X,3);" ";MOD(X,5);" ";MOD(X,7);" "
      NEXT c
   NEXT b
NEXT a
PRINT
END