program ff;
uses crt;
type ar_word=array[1..100] of string;
var sa,sb:string;
a,b:ar_word;
n,m:byte;
procedure init_word(s:string;
var a:ar_word;
var n:byte);
var i:byte;
begin s:=s+' ';
n:=0;
while s<>'' do while(s[1]='') and(s<>'') do delete(s,1,1);
if s<>'' then begin n:=n+1;
i:=pos(' ',s)-1;
a[n]:=copy(s,1,i);
delete(s,1,i);
end;
end;
procedure solve(var a,b:ar_word);
var k,i,j:byte;
begin for i:=1 to n do if a[i]<>'' then begin for j:=i+1 to n do if a[i]=a[j] then a[j]:='';
k:=0;
for j:=1 to m do if a[i]=b[j] then begin k:=k+1;
end;
if k>0 then a[i]:='';
end;
for i:=1 to m do if b[i]<>'' then b[j]:='';
end;
procedure print(a:ar_word;
n:byte);
var i:byte;
begin for i:=1 to n do if a[i]<>'' then write(a[i],' ');
end;
begin clrscr;
write('vvedite 1');
readln(sa);
write('vveite 2');
readln(sb);
init_word(sb,b,m);
solve(a,b);
print(a,n);
print(b,m);
readln;
END .