Program Exemplo1;
type // crio o meu tipo de dados
      vogais=(a,e,i,o,u);//type por enumeração
         // este tipo de dados não pode ser sujeito a read ou write
var
      vog:vogais; // o tipo de dados definido em type
Begin
  for vog := a to u do
  begin
      case vog of  // Lembrar o case tem end
         a,e,i,o,u:
           begin
                writeln('faz o processo ');
           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.