RANDOMIZE
PRINT
PRINT "０ から ９ までの数字が書かれたカードが１億枚ずつあります。"
PRINT "これらのカードから任意に５枚を選んだとき、"
PRINT "すべて異なる数である確率を"
PRINT "５０００回試行することによって、予想してみます。"
PRINT
DIM T(5)
LET M=5000
LET C=0
FOR i=1 TO M
   FOR j=1 TO 5
      LET T(j)=INT(RND*10)
   NEXT j
   LET x=1
   FOR k=1 TO 5
      FOR l=k+1 TO 5
         LET x=x*(T(k)-T(l))
      NEXT l
   NEXT k
   IF x<>0 THEN
      LET C=C+1
   END IF
NEXT i
PRINT ROUND(100*C/M,1);"%"
PRINT
END