Proceso ejemplo
	Limpiar Pantalla
	Escribir ""
	Escribir "captura de cinco números .."
	Escribir ""
	Escribir "primer valor ?"
	Leer n1
	Escribir "segundo valor ?"
	Leer n2
	Escribir "tercer valor ?"
	Leer n3
	Escribir "cuarto valor ?"
	Leer n4
	Escribir "quinto valor ?"
	Leer n5
	acumPares<-0
	contPares<-0
	acumImPares<-0
	contImPares<-0
	Escribir ""
	Si((n1 mod 2)=0)Entonces
		Escribir n1," ES PAR "
		acumPares<-acumPares+n1
		contPares<-contPares+1
	Sino
		Escribir n1," ES IMPAR "
		acumImPares<-acumImPares+n1
		contImPares<-contImPares+1
	FinSi
	Si((n2 mod 2)=0)Entonces
		Escribir n2," ES PAR "
		acumPares<-acumPares+n2
		contPares<-contPares+1
	Sino
		Escribir n2," ES IMPAR "
		acumImPares<-acumImPares+n2
		contImPares<-contImPares+1
	FinSi
	Si((n3 mod 2)=0)Entonces
		Escribir n3," ES PAR "
		acumPares<-acumPares+n3
		contPares<-contPares+1
	Sino
		Escribir n3," ES IMPAR "
		acumImPares<-acumImPares+n3
		contImPares<-contImPares+1
	FinSi
	Si((n4 mod 2)=0)Entonces
		Escribir n4," ES PAR "
		acumPares<-acumPares+n4
		contPares<-contPares+1
	Sino
		Escribir n4," ES IMPAR "
		acumImPares<-acumImPares+n4
		contImPares<-contImPares+1
	FinSi
	Si((n5 mod 2)=0)Entonces
		Escribir n5," ES PAR "
		acumPares<-acumPares+n5
		contPares<-contPares+1
	Sino
		Escribir n5," ES IMPAR "
		acumImPares<-acumImPares+n5
		contImPares<-contImPares+1
	FinSi
	Escribir ""
	Si(contPares>=1)Entonces
		Escribir "promedio de pares es ",(acumPares/contPares)
	Sino
		Escribir "NO HAY NÚMEROS PARES!!"
	FinSi
	Si(contImPares>=1)Entonces
		Escribir "promedio de Impares es ",(acumImPares/contImPares)
	Sino
		Escribir "NO HAY NÚMEROS IMPARES!!"
	FinSi
	Escribir ""
	Escribir "<enter> para continuar "
	Esperar Tecla
	Limpiar Pantalla
FinProceso