10 K = 0
20 FOR X = 1 TO 50000
30 IF RND(1) * 6 > 5 THEN K = K + 1
40 IF INT(X / 1000) = X / 1000 THEN PRINT X, K, K / X
50 NEXT X
60 END