Var i,ke,ko:integer;
s:string;
begin
ko:=0;
ke:=0;
readln(s);
for i:=1 to length(s) do begin
if (s[i]='Е') or (s[i]='е') then ke:=ke+1;
if (s[i]='О') or (s[i]='о') then ko:=ko+1;
end;
if ko>ke then writeln('К встречается чаще') else writeln('О встречается чаще');
end.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString.ToUpper; // к верхнему регистру
  var (kO,kE):=(0,0); // счетчики
  for var i:=1 to s.Length do
    case s[i] of
    'О':ko+=1;
    'Е':kE+=1
    end;
  if kO>kE then Writeln('Буква "О" встречается чаще')
  else if kO  else Writeln('Буквы "О" и "Е" встречаются одинаковое число раз')
end.

Пример
Если бы Ольга захотела, она бы училась лучше Елены
Буква "Е" встречается чаще