Proceso para hacer un juego de "adivina el numero".

Proceso Adivina_Numero

{Definir intentos,num_secreto,num_ingresado Como Entero}{;}
intentos<-10{;}
num_secreto <- azar(100)+1{;}

Escribir "Adivine el numero (de 1 a 100):"{;}
Leer num_ingresado{;}
Mientras num_secreto<>num_ingresado {&} intentos>1 Hacer
Si num_secreto>num_ingresado Entonces
Escribir "Muy bajo"{;}
Sino
Escribir "Muy alto"{;}
FinSi
intentos <- intentos-1{;}
Escribir "Le quedan ",intentos," intentos:"{;}
Leer num_ingresado{;}
FinMientras

Si num_secreto=num_ingresado Entonces
Escribir "Exacto! Usted adivino en ",11-intentos," intentos."{;}
Sino
Escribir "El numero era: ",num_secreto{;}
FinSi

FinProceso