Составить программу определяющую, какая из букв "е" или "о" встречается в тексте чаще.

program zz1;

var s:string; / / задаем переменную строкового типа

i, n1, n2:integer; / / задаем переменные целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=length (s) downto 1 do / / организуем цикл, в котором переберем все символы от последнего до первого

begin

if s[i] = 'е' then n1:=n1 + 1; / / считаем количество букв "е"

if s[i] = 'о' then n2:=n2 + 1; / / считаем количество букв "о"

end;

if n1 > n2 / / проверяем условие, если первое количество больше, то

then write (' букв "е" больше ') / / выводим один ответ

else write (' букв "о" больше '); / / иначе, выводим другой ответ

end.