Proceso azare
Escribir "rango numero"
Leer rango
intentos<-(rango-1);
num_secreto <- azar(intentos)+2;
Escribir "Adivine el numero en rango hasta"," ",rango
Leer num_ingresado;
Mientras num_secreto<>num_ingresado Y intentos>0 Hacer
Si num_secreto>num_ingresado Entonces
Escribir "Muy bajo";
Sino
Escribir "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 ",rango-intentos," intentos.";
FinSi
FinProceso
