Вывести ** экран все слова из К букв, в которых буква Ы встречается более 1 раза, и...

Question

Вывести на экран все слова из К букв, в которых буква Ы встречается более 1 раза, и подсчитать их количество.

Answer 1

//PascalABC.NET 3.2 сборка 1318

begin
  var ars:=readstring().Split;
  var k:=readinteger();
  ars.Where(x -> length(x)=k).Where(x -> x.where(y -> lowcase(y)='ы').count>1).Print;
end.

Пример ввода:
было быыть будет
5
Пример вывода:
быыть