Var
Slova : Array [1..12] of String;
i,j,k,s : Integer;
Glasniy : Set of Char;
Begin
Glasniy:=['w','W','y','Y','i','I','o','O','a','A','j','J','у ','У','е','Е','e','E','ы','Ы','а','А','о','О','э', 'Э','я','Я','и','И','ю','Ю'];
Writeln ('Введите 12 слов :');
k:=0;
for i:=1 to 12 do
begin
Write (i,'-е слово : ');
Readln(Slova[i]);
if (Slova[i,1]='c') or (Slova[i,1]='с') then
k:=k+1;
end;
Writeln ('Количество слов начинающихся с символа "c" : ',k);
for i:=1 to 12 do
if (Slova[i,1]='c') or (Slova[i,1]='с') then
begin
s:=0;
for j:=1 to length(Slova[i]) do
if Slova[i,j] in Glasniy then
s:=s+1;
Writeln ('В слове ',Slova[i],' ',s,' гласных.');
end;
Readln;
End.