Посчитайте количество букв, соответствующих гласным звукам ("а", "я", …), в абзаце из книги Л.Н. Толстого “Война и мир”.

// PascalABC . NET 3 . 0 , сборка 1088begin var s : = ReadLines ( \' 1 . txt \' ) . ToArray ; var s 1 : = s [ 0 ] . ToString; var s2 : string : = \' \'; for var i : = 1 to s1 . Length do s2 + = LowCase ( s1 [ i ] ); var s 3 : = s2 . W here ( x -> x in [ \' а \' , \' е \' , \' и \' , \' о \' , \' у \' , \' ы \' , \'э \' , \' ю \' , \'я \' ] ); var dic : = new Dictionary<char,integer>; 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 )