program skjdak;
type slicice=1..20;
     skup=set of slicice;
var
    n,m,i,x:integer;
    s1,s2,s3,s4,s5,s6:skup;

procedure ulaz(var s1,s2,s3,s4:skup; var x,n,m:integer);
begin
     s1:=[]; s2:=[]; s3:=[]; s4:=[];
     writeln('Unesite broj slicica prvog coveka');
     readln(n);
     writeln('Unesite brojeve slicica');
     for i:=1 to n do begin
         read(x);
         if not (x in s1) then s1:=s1+[x]
                             else s2:=s2+[x];
         end;
     writeln('Unesite broj slicica drugog coveka');
     readln(m);
     writeln('Unesite brojeve slicica');
     for i:=1 to m do begin
         read(x);
         if not (x in s3) then s3:=s3+[x]
                             else s4:=s4+[x];
         end;
end;

procedure obrada(s1,s2,s3,s4:skup; var s5,s6:skup);
begin
s5:=s2-s3 ;
s6:=s4-s1;
end;


procedure izlaz(s5,s6:skup);
begin
     write('Prvi menja',' ');
     if s5=[] then write('Nista');
     for i:=1 to 20 do
         if (i in s5) then write(i,' ');
     writeln();
     write('Drugi menja');
     if s6=[] then write('Nista');
     for i:=1 to 20 do
         if (i in s6) then write(i,' ');
     readln(n);
end;

begin
     ulaz(s1,s2,s3,s4,x,n,m);
     obrada(s1,s2,s3,s4,s5,s6);
     izlaz(s5,s6);
end.