Program PzimSETex9; type caracteres =set of char; var vogais, consoantes, alfabeto: caracteres; frase:string[25]; cont, i, j, k:integer; Begin vogais:=['a','e','i','o','u','A','E','I','O','U']; alfabeto:=['a'..'z']+['A'..'Z']; consoantes:=alfabeto- vogais; writeln('digite uma frase: '); readln(frase); for cont:=1 to length(frase) do if frase[cont] in consoantes then begin i:=i+1; end else if frase[cont] in vogais then begin j:=j+1; end else if frase[cont] = ' ' then begin k:=k+1; end; //apresenta o código décimal da tabela Ascii dos carateres solicitados writeln('vogais..........:', vogais); writeln('onsoantes......:', consoantes); writeln('alfabeto........:', alfabeto); writeln('...............:'); //apresenta o número de consoantes vogais e espaços writeln('nº de vogais..........:', j); writeln('nº de consoantes......:', i); writeln('nº de espaços........:', k); readln; End.