Como contar as vogais em uma palavra, frase ou texto em VisuAlg - Lista de Exercícios Resolvidos de VisuAlg

Informe uma palavra, frase ou texto: Gosto muito de VisuAlg
A palavra ou frase contém 9 vogais 

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

algoritmo "Como contar as vogais em uma palavra, frase ou texto"

var
  // Variáveis usadas na resolução do problema
  frase, c: caractere
  quant_vogais, i: inteiro

inicio
  // primeiro nós inicializamos o contador de vogais
  // com o valor 0
  quant_vogais <- 0
  
  // agora nós pedimos para o usuário informar uma palavra,
  // frase ou texto
  escreva("Informe uma palavra, frase ou texto: ")
  leia(frase)
  
  // vamos usar um laço PARA para percorrer todas os
  // caracteres da palavra, frase ou texto
  para i de 1 ate Compr(frase) faca
    // obtemos o caractere atual
    c <- Copia(frase, i, 1)
    // este caractere é uma vogal?
    se (c = "a") ou (c = "e") ou (c = "i") ou (c = "o") ou (c = "u") entao
      quant_vogais <- quant_vogais + 1
    fimse
  fimpara

  // mostramos o resultado
  escreva("A palavra ou frase contém ", quant_vogais, " vogais")

fimalgoritmo