program hurr;
uses crt;
var x, y, i:integer; s:string;
begin
clrscr;
x:=0;
y:=0;
writeln('Введите строку '); readln(s);
for i:=1 to length(s) do begin
if s[i]='о' then x:=x+1;
if s[i]='е' then y:=y+1;
end;
if x>y then writeln('"О" больше');
if y>x then writeln('"Е" больше');
end.