Язык PascalABC
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: в слове есть повторяющиеся буквы.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadlnString.ToWords;  a.Where(t->(t<>a[0]) and (t.Length<>t.Distinct.Count)).Printlnend.Примерvanitas vanitatum et omnia vanitasvanitatum