var
  input, output : text;
  i, i2 : integer;
  arr : array [0..200] of string;
  flag : boolean;
begin
  Assign(input, 'input.dat');			//Связываем файлы
  Assign(output, 'output.dat');
  Reset(input);							//Открываем input для чтения
  Rewrite(output);						//Открываем output для записи
  
  while not EoF(input) do				//Считываем все строки из файла в массив
  begin
    Readln(input, arr[i]);
    Inc(i);								//Увеличиваем i на 1
  end;
  
  Close(input);							//Закрываем input	
  i := 0;
  
  while (arr[i] <> '') do
  begin
    flag := true;
	
    for i2 := 0 to i - 1 do				//Сравниваем текущую строку с предыдущими
      if arr[i2] = arr[i] then
      begin
        flag := false;
        break;
      end;
      
    if flag then						//Если она не повторялась, то записываем её
      Writeln(output, arr[i]);

    Inc(i);
  end;
  
  Close(output);						//Закрываем output	
end.