//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.
<span>Описательная информационная
</span><span>Формализованная
</span><span>Компьютерная</span>