{* Задача 35 *}

Unit ZADACH35;
Interface
Implementation
Begin
 writeln('Дано предложение.Напечатать все различные слова.');
End.

Program pas0;

Uses zadach35.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  a : String;
  b : Array[1..100] Of String;
  i : integer;
  k : integer;
  f : integer;
  j : integer;
Begin
  readln(a);
  a := ' ' + a;
  For i := 1 To length(a) Do {* Цикл для i => [1 .. length(a)] *}
    If a[i] = ' ' Then
      inc(k) {* k++ *}
    Else b[k] := b[k] + a[i];
      For i := 1 To k Do {* Переменная i увеличивается с 1 до k *}
      Begin
        f := 0;
        For j := 1 To i Do {* Цикл для j => [1 .. i] *}
          If (ij) And (b[i] = b[j]) Then
            f := 1;
        If f = 0 Then
          writeln (b[i]);
      End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.