Практические / prakt10 / 10,1

program glas;
type letters=set of'0'..'z';
var glasn,chif:Letters;
text:string;
i,g,a:byte;
begin
glasn:=['A','a','E','e','I','i','O','o','U','u'];
chif:=['0','1','2','3','4','5','6','7','8','9'];
write('введите предложение ');
readln(text);
G:=0;
for I:=1 to length(text)do
if text[I] in Glasn then G:=G+1;
writeln(' в предложении <',text,'>', G, 'гласных');
a:=0;
for I:=1 to length(text)do
if text[I] in chif then a:=a+1;
writeln(' в предложении <',text,'>', a, 'цифр');

end.