program mn;
uses crt;
type p=array[1..100]of integer;
var a,b:array[1..100]of integer;
n,i,j,f:integer;
procedure vvod;
var g:integer;
begin
for g:=1 to n do
begin
a[g]:=rand
om(40); Write(a[g]:4);
end;
writeln;
for g:=1 to n do
begin
b[g]:=random(40);
Write(b[g]:4);
end;
writeln;
end;
BEGIN
ClrScr;
Write('N:');readln(n);
vvod;
for i:=1 to n do
begin
f:=0;
for j:=1 to n do
if a[i]=b[j]
then f:=1;
if f=0
then write(a[i]:4);
end;
readln;
END.