1. Посчитайте количество букв, соответствующих гласным звукам ("а", "я", …), в абзаце из книги Л.Н. Толстого “Война и мир”. Молодая княгиня Болконская приехала с работой в шитом золотом бархатном мешке. Ее хорошенькая, с чуть черневшимися усиками верхняя губка была коротка по зубам, но тем милее она открывалась и тем еще милее вытягивалась иногда и опускалась на нижнюю. Как это бывает у вполне привлекательных женщин, недостаток ее — короткость губы и полуоткрытый рот — казались ее особенною, собственно ее красотой. Всем было весело смотреть на эту полную здоровья и живости хорошенькую будущую мать, так легко переносившую свое положение. Старикам и скучающим, мрачным молодым людям казалось, что они сами делаются похожи на нее, побыв и поговорив несколько времени с ней. Кто говорил с ней и видел при каждом слове ее светлую улыбочку и блестящие белые зубы, которые виднелись беспрестанно, тот думал, что он особенно нынче любезен. И это думал каждый.

// PascalABC.NET 3.0, сборка 1088
begin
  var s:=ReadLines(1.txt).ToArray;
  var s1:=s[0].ToString;
  var s2:string:=;
  for var i:=1 to s1.Length do s2+=LowCase(s1[i]);
  var s3:=s2.Where(x->x in [а,е,и,о,у,ы,э,ю,я]);
  var dic:=new Dictionary;
  foreach var c in s3 do dic[c]:=dic.Get(c)+1;
  dic.Print(NewLine);
end.

Результат выполнения программы (абзац в файле 1.txt)
(о,81)
(а,46)
(я,13)
(и,41)
(е,67)
(у,22)
(ы,18)
(ю,12)
(э,3)