100 INPUT "M=";M 110 INPUT "N=";N 120 LET X=1 130 FOR I=0 TO N-1 140 LET X=X*(M+I) 150 NEXT I 160 IF X-INT(X/8)*8=0 THEN 170 PRINT "8 で割り切れます" 180 GOTO 210 190 END IF 200 PRINT "8 で割り切れません" 210 END