# quesito a).
dado <- c(1:6)
prove <- 100000
num <- 0; den <- 0
for (i in 1:prove)
{
    out <- sample(dado,size=3,replace=TRUE)
    den <- den + 1
    if (out[1]==1) num <- num+1
}

cat(num,den,num/den,"\n")



# quesito b).
dado <- c(1:6)
prove <- 100000
num <- 0; den <- 0
for (i in 1:prove)
{
    out <- sample(dado,size=3,replace=TRUE)
    den <- den + 1
    if (out[1]==1 & out[2]==2 & out[3]==3) num <- num+1
}

cat(num,den,num/den,"\n")