Благозвучное слово

program UHt;
var
s: string;
i,z,x,n,b: byte;
begin
readln (s);
x:=0;
z:=0;
for i:=1 to length(s) do
begin 
if (s[i]='a') or (s[i]='o') or (s[i]='i') or (s[i]='u') or (s[i]='y') or (s[i]='e') then 
begin
x:=x+1 ;
z:=0
end
else
begin
x:=0;
z:=z+1; 
end;
 if (x>=3) then
n:=n+1;
if (z>=3) then
b:=b+1;  
end;
writeln (n+b);
end.

program JH;
var
  x:string;
  y,n,v,c,i,m,h:integer;
begin
  readln (x);
  for i:=1 to length(x) do
    begin
      if (x[i]='a') or (x[i]='e') or (x[i]='i') or (x[i]='u') or (x[i]='y') or (x[i]='o') then
        begin
          if n>=3 then
            begin
              if n mod 2 =0 then
                c:=n div 2-1
              else
                c:=n div 2;
              h:=h+c
            end;
          n:=0;
          m:=m+1
        end
      else
         begin
          if m>=3 then
            begin
              if m mod 2=0 then
                v:=m div 2-1
              else
                v:=m div 2;
              y:=y+v;
            end;
          m:=0;
          n:=n+1;
        end;
     end;
     if n>=3 then
     begin
              if n mod 2=0 then
                c:=n div 2-1
              else
                c:=n div 2;
              h:=h+c;
            end;
        if m>=3 then
            begin
              if m mod 2=0 then
                v:=m div 2-1
              else
                v:=m div 2;
              y:=y+v;
            end;
       writeln (y+h);
end.