program phantu_thieu;
uses crt;
var A,B:array[1..10000] of integer;
    n,m,i,j,kt:integer;
begin
        clrscr;
        write('Nhap so phan tu cua mang A: ');  readln(n);
        for i:=1 to n do
                begin
                        write('A[',i,']= ');   readln(A[i]);
                end;
        write('Nhap so phan tu cua mang B: ');  readln(m);
        for i:=1 to m do
                begin
                        write('B[',i,']= ');   readln(B[i]);
                end;
        for i:=1 to n do
                begin
                        kt:=0;
                        for j:=1 to m do
                                if A[i]=B[j] then kt:=1;
                        if kt=0 then write(A[i],' ');
                end;
        for i:=1 to m do
                begin
                        kt:=0;
                        for j:=1 to n do
                                if B[i]=A[j] then kt:=1;
                        if kt=0 then write(B[i],' ');
                end;
        readln;
end.

uses crt;
var n,m,i,j,kt:longint; a,b:array[1..10000000]of longint;
begin
clrscr;
   readln(n);
   for i:=1 to n do read(a[i]); readln;
   readln(m);
   for i:=1 to m do read(b[i]); readln;
   for i:=1 to m do 
      begin 
         kt:=1;
         for j:=1 to n do if b[i]=a[j] then kt:=0;
         if kt=1 then write(b[i],' ');
      end;
readln
end.