uses crt; var i,j,n,m,kt:longint; a,b:array[1..1000000]of longint; begin clrscr; write('Nhap so phan tu cua day mot: ');readln(n); write('Nhap day mot: '); for i:=1 to n do read(a[i]); readln; write('Nhap so phan tu cua day hai: ');readln(m); write('Nhap day hai: '); for i:=1 to n do read(b[i]); readln; write('Cac so thuoac hay mot ma khong thuoc hay hai: '); 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; readln end.
