program PascalGuru;
uses crt;

var s:string; {описание переменных}
n,i,kolvo:integer;
m:array [1..50] of string;

{----------------------------------------------------------------------------}
procedure razbivka(s:string;var n:integer); {разбивает строку на слова}
var slovo:string;
i,p:integer;
begin
{*** удаляем лишние пробелы, оставив между словами всего 1 пробел}
i:=1;
repeat
if copy(s,i,2)=' ' then delete(s,i,1) else inc(i);
until i>length(s);
{*** конец удаления***}
{*** ниже пошла разбивка на слова}
n:=0;
p:=pos(' ',s);
repeat
slovo:=copy(s,1,p-1);
delete(s,1,p);
p:=pos(' ',s);
inc(n);
m[n]:=slovo;
until p=0;

inc(n);
m[n]:=s;
end;
{----------------------------------------------------------------------------}
function opredel(slovo:string):char; {возвращает "z" или "g" или "0"}
{const zvonkie='бвгджзйлмнр';
gluxie ='пфктшсхцчщ'; }
var zvonkie,gluxie:set of char;
begin
zvonkie:=['б','в','г','д','ж','з','й','л','м','н','р'];
gluxie :=['п','ф','к','т','ш','с','х','ц','ч','щ'];

if slovo[1] in zvonkie then
begin
opredel:='z';
exit;
end;

if slovo[1] in gluxie then
begin
opredel:='g';
exit;
end;

opredel:='0';
end;
{----------------------------------------------------------------------------}
begin
write('Stroka (slova cherez probel): '); readln (s); {ввод строки}

razbivka(s,n); {разбивка строки на слова и запись слов в массив}

clrscr;
kolvo:=0; {обнуляем кол-во}
for i:=1 to n do
if opredel(m[i])<>'0' then inc(kolvo); {подсчитываем кол-во}

writeln('_Kolichestvo: ',kolvo);writeln;{вывод на экран}

writeln('_S gluhikh:');
for i:=1 to n do
if opredel(m[i])='g' then writeln(m[i]); {вывод на экран}

writeln;writeln('_S zvonkikh:');
for i:=1 to n do
if opredel(m[i])='z' then writeln(m[i]);{вывод на экран}

readln;
end.