Proceso Ruleta intentos<-5; num_secreto <- azar(30)+1; Escribir "Adivine un número entre el 1 al 30: (Tiene 5 intentos)"; Leer num_ingresado; Mientras num_secreto<>num_ingresado Y intentos>0 Hacer Si num_secreto>num_ingresado Entonces Escribir "El número es muy bajo"; Sino Escribir "El número es muy alto"; FinSi Escribir "Le quedan ",intentos," intentos:"; Leer num_ingresado; intentos <- intentos-1; FinMientras Si intentos=0 Entonces Escribir "El numero era: ",num_secreto; Sino Escribir "Exacto! Usted adivino en ",6-intentos," intentos."; FinSi FinProceso