program unio;
  var
    a : array [1..4] of integer = (9, 5, 3, 4);
    b : array [1..5] of integer = (3, 6, 2, 1, 10);
    c : array [1..30] of integer;
    i, j, k : integer;
    n, m : integer;
  
  begin
    n := 4;
    m := 5;
  
    for i := 1 to n do
      c[i] := a[i];
  
    k := n;
  
    for j := 1 to m do
    begin
      i := 1;
      while (i <= n) and (b[j] <> a[i]) do
        i := i + 1;
      if i>n then
      begin
        k := k + 1;
        c[k] := b[j]
      end;    
    end;
  
    for i := 1 to k do
      Write(c[i], ' ');
    WriteLn;
  end.