Algoritmo detarea
	Definir texto1 Como Caracter
	Escribir "Ingresa un texto"
	leer texto1
	vocales(texto1)
FinAlgoritmo

Funcion vocales (texto2)
	Definir n,c,vocalA,vocalE,vocalI,vocalO,vocalU Como Entero
	Definir x Como Caracter
	n = Longitud(texto2)
	c = 0 
	vocalA = 0
	vocalE = 0
	vocalI = 0
	vocalO = 0
	vocalU = 0
	Mientras n >= 0 Hacer
		x =  Subcadena(texto2,n,n) 
		si x == "a" o x == "A" Entonces			
			c = c + 1
			vocalA = vocalA + 1
		FinSi
		si x == "e" o x == "E" Entonces			
			c = c + 1
			vocalE = vocalE + 1
		FinSi
		si x == "i" o x == "I" Entonces		
			c = c + 1
			vocalI = vocalI + 1
		FinSi
		si x == "o" o x == "O" Entonces			
			c = c + 1	
			vocalO = vocalO + 1
		FinSi
		si x == "u" o x == "U" Entonces			
			c = c + 1
			vocalU = vocalU + 1
		FinSi
		n = n - 1
	FinMientras	
	Escribir "El texto tiene ",c," vocales"
	Escribir "La vocal a se encontro ",vocalA," veces"
	Escribir "La vocal e se encontro ",vocalE," veces"
	Escribir "La vocal i se encontro ",vocalI," veces"
	Escribir "La vocal o se encontro ",vocalO," veces"
	Escribir "La vocal u se encontro ",vocalU," veces"
Fin Funcion