var
s: string;
k, i: integer;
begin
readln(s);
for i := length(s) downto 1 do
if s[i] = 'o' then
inc(k);
delete(s, i, 1);
end;
writeln(s);
writeln(k);
end.
Объяснение:
