===== PascalABC.NET =====
begin
var lat := ['A'..'Z'];
var cyr := ['А'..'Я', 'Ё'];
var s := ReadlnString('Вводите:').ToUpper;
var d := s.Count(c -> c in cyr) - s.Count(c -> c in lat);
if d > 0 then
Print('Кириллицы больше')
else if d < 0 then
Print('Латиницы больше')
else
Print('Поровну...')
end.
