PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin var a:=ReadlnString('Введите текст:').ToLower.ToWords; var c:=ReadlnChar('Введите искомую букву').ToLower; Writeln('Слов с этой буквой: ',a.Where(w->w.Contains(c)).Count)end.ПримерВведите текст: А роза упала на лапу АзораВведите искомую букву аСлов с этой буквой: 6