Begin
var s := readstring();
if (s.Where(x -> x = 'а').Count > s.Where(x -> x = 'о').Count)
then write('Букв "а" больше')
else write('Букв "о" больше');
end.
1) 10000110
2) 11001010
3) 11010001
Нажимаешь ПКМ по файлу => свойства => там изменняешь формат файла на jpeg