PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018Внимание! Если программа не работает, обновите версию!begin var s:=ReadlnString; Range(1,s.Length,2).Select(i->s[i]).Where(c->LowCase(c)='н').PrintLinesend.ПримерНелли нечаянно надорвала наволочку и Нестор немного нахмурилсяНнннн