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
Где сама последовательность?
