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.