Ответ:

var i,o,e: integer;

s:string;

begin

read(s);

for i:=1 to length(s) do

begin

if s[i]='о' then o:=o+1;

if s[i]='е' then e:=e+1;

end;

if o=e then write ('o=e')

else if o>e then write ('o')

else write('e')

end.

русские строчные о и е