var c, s: string;
i, sum: integer;
begin
s:='moloko';
c:='o';
sum:=0;
for i:=1 to length(s) do
if s[i] = c then
sum += 1;
writeln(sum);
end.
var c, s: string;
i, sum: integer;
begin
s:='moloko';
c:='o';
sum:=0;
for i:=1 to length(s) do
if s[i] = c then
sum += 1;
writeln(sum);
end.