n=10
count <- 0  # inicializamos el conteo

for(i in 1:n){
  pz <- 10  # número de pares de zapatos
  ez <- 8  # número de zapatos sacados al azar
  
  list <- rep(seq(0, 9), each=2)  # creamos un vector con los pares de zapatos del 0 al 9
  sim <- sample(list, size=ez, replace=FALSE)  # seleccionamos 8 zapatos al azar sin reemplazo
  
  if(length(unique(sim)) == length(sim)){  
  count <- count + 1
  cat("¡Ojo todos los zapatos seleccionados son distintos!\n")
  }
  
  cat(paste0("Iteracion ", i),":\n")
  cat("los zapatos seleccionados son","\n")
  cat(sim,"\n") # agregamos un salto de línea
  cat("\n") # agregamos un salto de línea adicional
}

cat(paste0("La probabilidad estimada de no sacar ningún par correcto es ", count/n))