ответ:сорри братик написал
Объяснение:соррян я ббы плмог
var i,o,e: integer;
s:string;
begin
read(s);
for i:=1 to length(s) do
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.
русские строчные о и е
ответ:сорри братик написал
Объяснение:соррян я ббы плмог
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.
русские строчные о и е