<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.MatchValues('[аА]').Count.Println
end.
<h2>Пример</h2>
А роза упала на лапу Азора
8
1 это предпоследние выкамвам
//PascalABC.NET
begin
var A := ArrRandom(10, 10, 35);
A.Println;
A.Sum.Println;
A.Where(x -> x > 20).Println.Count.Println;
A.Min.Println;
end.
Основным носителем в Египте был-папирус.