const
g=['е','ы','а','о','э','я','и','ю','Ё'];
  ss=['й','ц','к','н','г','ш','щ','з','х','ъ','ф','в','п','р','л','д','ж','ч','с','м','т','ь','б'];
var
  sog, gl :integer;
  str     :string;
Procedure Find(const str :string; var gl, sog :integer);

var
  i :integer;
begin
  for i:=1 to length(str) do
  begin
     if str[i] in g then
        inc(gl);
     if str[i] in ss then
        inc(sog)
  end
end;


begin
  sog:=0;
  gl:=0;
  Write(Введите строку из русских букв: ');
  Readln(str);
  Find(str, gl, sog);
  Writeln(согласных', sog, 'гласных', gl, ' букв в слове);
  Readln
end.