// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите текст:');
Writeln('Буква "к" встречается ',s.MatchValues('[кК]').Count,' раз(а)')
end.
Пример
Введите текст: Клоун держал коробку красных карандашей и синий мячик.
Буква "к" встречается 6 раз(а)