// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
var a:=s.Left(Pos('.',s)-1).ToWords; // все до точки, по словам
a.Reverse.Println; // обратный порядок слов
a.Distinct.Println // без дубликатов
end.
Пример
арбуз барабан арбуз вагон голова дом арбуз. ель
арбуз дом голова вагон арбуз барабан арбуз
арбуз барабан вагон голова дом