begin
'Э, Л, Ь, Б, Р, У, С, '.remove(', ')
.Sorted.JoinToString
.Cartesian(5).Numerate
.Where(\(n,s)-> (n mod 2 = 0)) // c чётным но­ме­ром
.Where(\(n,s)-> s.CountOf('С') >= 2) // не менее двух букв С
.Where(\(n,s)-> s.CountOf('Л') = 1) //одну букву Л
.Where(\(n,s)-> not s.isMatch('[Э][Э]') ) // не со­дер­жит букв Э, сто­я­щих рядом
.Last//(15948,ЭУССЛ)//по­след­нее слово
.Item1//15948 // номер ис­ко­мо­го слова
.Print;
end.