Algoritmo palavra;
Usar crt;
Variáveis palavra: cadeia de caracteres;
    i, l, caracter, totalVogais, totalConsoantes, totalAlgarismos, totalOutros: inteiro;
Início
     Escrever('Escreva uma palavra: ');
     Ler(palavra);

     Para i <- 1 Até Length(palavra) Fazer
     Início
            caracter <- Ord(palavra[i]);

            Se (caracter < 0) Então
                caracter <- 256 + caracter;

            Seleccionar caso (caracter)
                58, 65, 69, 73, 79, 85, 97, 101, 105, 111, 117, 129..134,
            136..154, 160..163, 198..199, 224: totalVogais <- totalVogais + 1;

                66..68, 70..72, 74..78, 80..84, 86..90, 98..100,
            102..104, 106..110, 112..116, 118..122, 128, 135,
            152, 164..165: totalConsoantes <- totalConsoantes + 1;

                48..57: totalAlgarismos <- totalAlgarismos + 1;

                Senão totalOutros <- totalOutros + 1;
            FimSeleccionarCaso;
     FimPara;

     Escrever('Numero de caracteres da palavra: ', Length(palavra));
     Escrever('Vogais: ', totalVogais);
     Escrever('Consoantes: ', totalConsoantes);
     Escrever('Algarismos: ', totalAlgarismos);
     Escrever('Outros caracteres: ', totalOutros);

     readkey;
Fim.