Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
<span>end.</span>
<span>Вчера решал 238 вышло, могу ошибаться..
</span>