Program SubRangeTypeAlfabeto ;
type // crio o meu tipo de dados
    alfabeto='a'..'z';  //TYPE SUBRANGE
         // este tipo de dados pode ser sujeito a read ou write
var
  letras:alfabeto; // o tipo de dados definido em type
  cont:integer;
Begin
   cont:=0;
   for letras := 'a' to 'z' do
   begin
     cont:=cont+1;
      case letras of  // Lembrar o case tem end
      'a','e','i','o','u':
         begin //(1)
             writeln(cont,'º letra do alfabeto é uma vogal :::: ',letras )
         end; //(1)
       else // Else do case
             writeln(cont,'º letra do alfabeto não é uma vogal ', letras);
      end; // end do case	
  end;
end.