Написать программу в pascal: определить сколько раз в тексте встречается слог "ba"
begin
ReadlnString.ToLower.MatchValues('ba').Count.Println
end.