prove <- 1000000
paolo <- runif(prove,min=10,max=20)
francesca <- runif(prove,min=15,max=25)
delta <- paolo - francesca
sum(delta<0)/length(delta)
Figura 4.9