program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var ss:string;
    k1,k2:integer;
    f:textfile;
    i,j,k: Integer;
    h, p : String;
begin

  try
   assign(f,'o.txt');
   writeln('Wedit text:');
   readln(ss);
   rewrite(f);
   writeln(f,ss);

   h := 'euioaуиєюя';
   p := 'qwrtypsdfhgjklzxcvbnmбвгджзклмнпрстфхцчшщ'; {Множина приголосних літер}

   k1 := 0;
   for i := 0 to Length(h)-1 do
      for k := 0 to Length(ss)-1 do
        begin
          if ss[k] = h[i] then
            begin
              inc(k1);
              break;
            end;
        end;

   k2 := 0;
   for i := 0 to Length(h)-1 do
      for k := 0 to Length(ss)-1 do
        begin
          if ss[k] = p[i] then
            begin
              inc(k2);
              break;
            end;
        end;

    writeln;
    writeln('Kilkist golosnux=',k2);
    writeln('Kilkist prugolosnux=',k1);
    writeln(f,'Kilkist prugolosnux=',k1);
    writeln(f,'Kilkist golosnux=',k2);

    if k1>k2 then
     begin
      writeln('Pryholosnyh bilhe!!!');
      writeln(f,'Pryholosnyh bilhe!!!');
     end
    else
      if k1<k2 then
        begin
          writeln('Holosnyh bilhe!!!');
          writeln(f,'Holosnyh bilhe!!!');
        end
      else
       begin
          writeln('k1 = k2, Count is equal');
          writeln(f,'k1 = k2, Count is equal');
       end;
  Finally
   close(f);
   readln;
  end;

end.