===== PascalABC.NET =====
begin
var s := ReadlnString;
s[1::2].Println;
s := ReadlnString;
s.Count(c -> c = 'а').Print
end.
