dado <- c(1:6)
prove <- 100000
num.1 <- 0; num.2 <- 0; den <- 0
for (i in 1:prove)
{
    out <- sample(dado,size=3,replace=TRUE)
    S <- sum(out)
    den <- den + 1
    if (S== 9) num.1 <- num.1+1
    if (S==10) num.2 <- num.2+1
}

cat(num.1,num.2,den,num.1/den,num.2/den,"\n")