Question

Решите пожалуйста задачу PascalABC
Дана последовательность слов. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующим условиям:
а)в слове нет повторяющихся букв;
б) слово симметрично

Answer 1

begin

 var a:=ReadlnString.ToWords;

 a.Where(t->(t<>a[0]) and (t.Length<>t.Distinct.Count)).Println

end.

Пример

vanitas vanitatum et omnia vanitas

vanitatum

Где сама последовательность?