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.

uses crt;

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

i, n, m : integer;

begin

clrscr;

write('Nhap so phan tu day 1 : '); readln(n);

write('Nhap so phan tu day 2 : '); readln(m);

write('Nhap phan tu cho day 1 : ');

for i := 1 to n do read(a[i]);

write('Nhap phan tu cho day 2 : ');

for i := 1 to m do read(b[i]);

write('Phan tu co day 1 khong thuoc day 2 : ');

for i := 1 to n do

if a[i] in [b[1] .. b[m]] then else write(a[i],'  ');

readln

end.