quantilanci = 1000000


DadoDeDadis = sample(1:6, quantilanci, replace = TRUE)
DadinaDeDadis = sample(1:6, quantilanci, replace = TRUE)


duedadi = DadoDeDadis + DadinaDeDadis

minimo = 2
massimo = 13
tagli = minimo : massimo - 0.5
hist(duedadi, breaks = tagli, col = "orange")