SubProceso Pausa
	Escribir ""
	Escribir "<enter> para continuar .."
	Escribir ""
	Esperar Tecla
FinSubProceso
SubProceso Captura
	Limpiar Pantalla
	Escribir ""
	Escribir "captura de números "
	Escribir ""
	Escribir "cuántos números son ?"
	Leer cantNum
	vMayor<-0
	Escribir ""
	vCont<-0 
	Para vCont<-1 Hasta cantNum Con Paso 1
		vCont<-vCont+1
		Escribir "valor no.",vCont," ?"
		Leer vValor
		Si(vValor>vMayor) Y (vValor>=30 Y vValor<=40)Entonces
			vMayor<-vValor
		FinSi
	Fin Para 
	Escribir ""
	Escribir "el mayor entre 30 y 40 es ",vMayor
	Pausa
FinSubProceso
Proceso ejemplo
	Repetir
		Captura
		Escribir ""
		Escribir "quieres ssalir del programa ?"
		Escribir "S <enter> para salir"
		Leer resp
	Hasta Que resp="s" o resp="S"
FinProceso