R-function to find probability of guessing the value on a card faced down

Question

from 10000 random generated samples, I have to create a code to compute probability that I never guess the right number on the card when six cards from 6-10 are turned upsid