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.