Programa que cuenta las vocales introducidas.

Inicio
    cont<-0
    cont2<-0
    cont3<-0
    cont4<-0
    cont5<-0
    Repetir
        Escribir "escribe solo vocales"
        leer c
        si c="a" Entonces
            cont<-cont+1
        Sino
            Escribir "solo introduce cualquier vocal";
        FinSi
        si c="e" Entonces
            cont2<-cont2+1
        Sino
            Escribir "solo introduce cualquier vocal";
        FinSi
        si c="i" Entonces
            cont3<-cont3+1
        Sino
            Escribir "solo introduce cualquier vocal";
        FinSi
        si c="o" Entonces
            cont4<-cont4+1
        Sino
            Escribir "solo introduce cualquier vocal";
        FinSi
        si c="u" Entonces
            cont5<-cont5+1
        Sino
            Escribir "solo introduce cualquier vocal";
        FinSi
        Escribir "presiona (.) para salir";
    Hasta Que c="."
    Escribir "letras a ",cont
    Escribir "letras e ",cont2
    Escribir "letras i ",cont3
    Escribir "letras o ",cont4
    Escribir "letras u ",cont5
Fin