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.

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