PascalABC.NET
begin
var s := ReadlnString('Введи текст:');
var c := ReadlnChar('Какую букву ищем?');
Println('Она встретилась', s.Where(p -> p = c).Count, 'раз')
end.
