Proceso ejemplo
	Limpiar Pantalla
	Escribir "captura de números"
	Escribir "cuántos números quieres capturar?"
	Leer cantidad
	contDeNumeros<-0
	contPares<-0
	acumPares<-0
	Repetir
		contDeNumeros<-contDeNumeros+1
		Escribir "valor no.",contDeNumeros," ? de ",cantidad
		Leer vNum
		Si(vNum>=80 Y vNum<=100)Entonces
			Si(vNum mod 2=0)Entonces
				Escribir vNum," es par y está entre 80 y 100"
				acumPares<-acumPares+vNum
				contPares<-contPares+1
			FinSi
		FinSi
	Hasta Que contDeNumeros=cantidad
	Si(contPares>=1)Entonces
		pro<-acumPares/contPares
		Escribir "el promedio de los pares"
		Escribir "que están entre 80 y 100 es"
		Escribir prom
		Esperar Tecla 
	FinSi
	Si(contPares=0)Entonces
		Escribir "NO se encontró pares"
		Escribir "entre 80 y 100"
		Esperar Tecla
	FinSi
	
FinProceso