const
vow=['a','e','y','u','i','o'];
con=['q','w','r','t','p','s','d','f','g','h','j','k','l',
'z','x','c','v','b','n','m'];
var
t:string;
i,j,n,m:integer;
begin
write('Напишите предложение: ');readln(t);
n:=0;
m:=0;
for i:=1 to length(t) do
begin
if t[i] in con then m:=m+1;
if t[i] in vow then n:=n+1;
end;
writeln('Согласных=',m);
writeln('Гласных =',n);
if n>m then writeln('Гласных больше чем согласных')
else if m>n then writeln('Согласных больше чем гласных')
else writeln('Гласных столько же, сколько и согласных');
readln;
end.