To display all words from To letters in which the letter Yvstrechayetsya more than 1 time, and to count their quantity.

//PascalABC. NET 3. The 2nd assembly of 1318 begin var ARS: = readstring (). Split; var k: = readinteger (); ars. Where (x-> length(x) = k). Where (x-> x. where (y-> lowcase(y) = z). count> 1). Print; end. was byyt will be 5 byyt