Program Pzim ; type // crio o meu tipo de dados vogais=(a,e,i,o,u); // este tipo de dados não pode ser sujeito a read ou write var vog:vogais; // o tipo de dados definido em type letra:char; Begin writeln('digite uma letra '); readln(letra); for vog := a to u do begin case vog of // Lembrar o case tem end a,e,i,o,u: begin if ((letra='a') or (letra='e') or (letra='i') or (letra='o') or (letra='u')) then writeln('faz o processo ',letra ) else writeln('Não é uma vogal'); end; end; // end do case break; // imprime apenas um processo, caso contrário imprimiria 5 vezes, ou seja, o número de vogais. end; end.