program PascalGuru;
var i:integer;
    f:text;
    s:string;
 
procedure podscet(s:string);
var kol,i:integer;
begin
kol:=0;
for i:=1 to length(s) do
if (s[i]='я') or (s[i]='е') or (s[i]='и') then
inc(kol);
write(kol);
end;
{----------------------------}
begin
assign(f,'fail.txt');  reset(f);
i:=0;
while not eof(f) do
      begin
      readln(f,s);
      inc(i);
      write('V ',i,' kol-vo= ');
      podscet(s);
      writeln;
      end;
 
close(f);
readln;
end.