begin
  count := 0; s := _word[i]; { для удобства работы }
  for i := 1 to length(s) do
    if s[i] in soglas then inc(count);
  writeln('в слове №', i, ' процент согласных = ', 100*count/length(s), '%');
end;

uses crt;
var
   s:string;

   a_count, b_count, i:integer;

Begin

   clrscr;

   a_count:=0; b_count:=0;

   write('s='); readln(s);

   if (pos('a',s)<>0)or(pos('b',s)<>0) then

    for i:=1 to length(s) do
     case s[i] of
      'a': inc(a_count);
      'b': inc(b_count);
     end;

   writeln('a : ', a_count);
   writeln('b : ', b_count);

   readln;

End.

uses crt;
var
   s:string;

   a_count, b_count, i:integer;

Begin

   clrscr;

   a_count:=0; b_count:=0;

   write('s='); readln(s);

   if (pos('a',s)<>0)or(pos('b',s)<>0) then begin
       while(pos('a',s)<>0) do begin
           i:=pos('a',s);
           delete(s,i,1);
           inc(a_count);
       end;

       while(pos('b',s)<>0) do begin
           i:=pos('b',s);
           delete(s,i,1);
           inc(b_count);
       end;
   end;

   writeln('A : ',a_count);
   writeln('B : ',b_count);


   readln;

End.

uses crt;
type
   Tstr   = string;
   TWords = array[1..50] of TStr;

var
  str:Tstr;
  words:TWords;
  n,j:integer;


function GetWords(var s:Tstr; var W:TWords):integer;
const limits=[#0..#32,'.',',','!','?',':',';'];
var
   i,bword,count:integer;

begin

   i:=1; count:=0;
   while(i<=Length(s)) do begin
    while(i<=length(s))and(s[i] in limits) do
     inc(i);
    if i<=length(s) then begin
        bword:=i;
        while(i<=length(s))and(not(s[i] in limits))
         do inc(i);

        inc(count);
        W[count]:=copy(s,bword,i-bword);
    end;
  end;

  GetWords:=count;

end;

function GetP(var s:Tstr):integer;
const
   sogl=[#97..#122]-['q','e','y','u','i','o','a'];
var
   i,p:integer;

begin

   p:=0;

   for i:=1 to length(s) do
    if s[i] in sogl then inc(p);

   GetP:=p*100 div length(s);
end;


Begin

   clrscr;

   write('s='); readln(str);

   n:=GetWords(str,words);

   for j:=1 to n do
    writeln('Для слова ''',words[j],''' доля согласных = ',GetP(words[j]),'%');



   readln

End.

uses crt;
   var
   s:string;
   v_count, b_count, g_count, d_count, j_count, z_count, i:integer;
   k_count, l_count, m_count, n_count, p_count, r_count:integer;
   s_count, t_count, f_count, h_count, ch_count, sh_count, sch_count:integer;
   c_count:integer;
   Begin
   clrscr;
   v_count:=0; b_count:=0; g_count:=0; d_count:=0; j_count:=0; z_count:=0;
   k_count:=0; l_count:=0; m_count:=0; n_count:=0; p_count:=0; r_count:=0;
   s_count:=0; t_count:=0; f_count:=0; h_count:=0; c_count:=0; ch_count:=0;
   sh_count:=0; sch_count:=0; 
   write('s='); readln(s);
   
   

if (pos('б',s)<>0) then
for i:=1 to length(s) do
   
   
   case s[i] of
    'в': inc(v_count);				
      'б': inc(b_count);
      'г': inc(g_count);
      'д': inc(d_count);
      'ж': inc(j_count);
      'з': inc(z_count);
      'к': inc(k_count);
      'л': inc(l_count);
      'м': inc(m_count);
      'н': inc(n_count);
      'п': inc(p_count);
      'р': inc(r_count);
      'с': inc(s_count);
      'т': inc(t_count);
      'ф': inc(f_count);
      'х': inc(h_count);
      'ц': inc(c_count);
      'ч': inc(ch_count);
      'ш': inc(sh_count); 
      'щ': inc(sch_count);



  end;
   writeln('б : ', b_count);
   writeln('в : ', v_count);
   writeln('г : ', g_count);
   writeln('д : ', d_count);
   writeln('ж : ', j_count);
   writeln('з : ', z_count);
   writeln('к : ', k_count);
   writeln('л : ', l_count);
   writeln('м : ', m_count);
   writeln('н : ', n_count);
   writeln('п : ', p_count);
   writeln('р : ', r_count);
   writeln('с : ', s_count);
   writeln('т : ', t_count);
   writeln('ф : ', f_count);
   writeln('х : ', h_count);
   writeln('ц : ', c_count);
   writeln('ч : ', ch_count);
  writeln('ш : ', sh_count);
  writeln('щ : ', sch_count);
 
 readln;
End.

 uses crt;
var
   s:string;
   a:array[char] of byte;
   i:integer;
   ch:char;

Begin

   clrscr;

   readln(s);

   for i:=1 to length(s) do
    for ch:=#0 to #255 do
     if s[i]=ch then
      inc(a[ch]);

   for ch:=#0 to #255 do
    if a[ch]<>0 then
     writeln(ch,' : ',a[ch]);

    readln;
End.

uses crt;
var
   s,ss:string;
   i,j,count:integer;
Begin

   clrscr;

   readln(s);

   i:=1;
   ss:='';
   while(i<=length(s)-1) do begin
       count:=1;
       for j:=i+1 to length(s) do
        if (s[j]=s[i])and(pos(s[i],ss)=0) then
         inc(count);


       if pos(s[i],ss)=0 then begin
           writeln(s[i],' : ',count);
           ss:=ss+s[i];
       end;
       inc(i);
   end;

    readln;
End.

sogl=[#224..#256]-['а','е','ё','э','у','ю','и','о','ы','я'];