Definir caracter Como Caracter

Definir esVocal Como Logico

Repetir

     Escribir "Ingrese una letra (o presione espacio para salir): "

     Leer caracter

     esVocal <- Falso

     Si caracter = "a" O carater = "e" O caracter = "i" O caracter = "o" O caracter = "u" Entonces

     esVocal <- Verdadero

     FinSi

     Si caracter <> " " Entonces

     Si esVocal Entonces

             Escribir "LA LETRA INGRESADA ES UNA VOCAL"

       Sino

             Escribir "LA LETRA INGRESADA ES UNA CONSONANTE"

         FinSi

     FinSi

Hasta Que caracter = " "

FinAlgoritmo

  Definir edad Como Entero

        mayores<- 0

        contador<-1

   Para contador<-1 Hasta 5 Con Paso 1 Hacer

Escribir "Ingrese la edad del estudiante ", contador

     Leer edad

     si edad >= 18 Entonces

       mayores<- mayores+1

    FinSi

    Fin Para

    Escribir "Cantidad de estudiantes mayores: ", mayores

FinAlgoritmo