Program BT;

Uses crt;

var a:array[1..100] of integer;

      b:array[1..100] of integer;

begin

 clrscr;

 write('So phan tu cua day a la : ');readln(m);

 for i:=1 to m do 

  begin

   write('a[',i,']=');readln(a[i]);

  end;

 write('So phan tu cua day b la ');readln(n);

 for i:=1 to n do

  begin

   write('b[',i,']=');readln(b[i]);

  end;

 for i:=1 to m do 

 for j:=1 to n do

   if a[i]<>b[j] then write(a[i],b[j]);

readln

end.

program bai_giai;
uses crt;
var A,B:array[1..10000] of integer;
    n,m,i,j,d:integer;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    readln(m);
    for i:=1 to m do read(B[i]);
    for i:=1 to n do
        begin
            d:=0;
            for j:=1 to m do
                if A[i]=B[j] then d:=d+1;
            if d=0 then write(A[i],' ');
        end;
    readln;
end.