Два массива

Задано два масиви чисел. Потрібно вивести ті елементи першого масиву (у том ж порядку, у якому вони йдуть у першому масиві), яких немає у другому масиві.

Вхідні дані

Спочатку на вхід подається число N - кількість елементів у першому масиві, потім N чисел - елементи масиву. Потім записано число M- кількість елементів у другому масиві. Потім записано елементи другого масиву. Кількість елементів кожного масиву не перевищує100. Самі елементи - числа з діапазону Integer.

Вихідні дані

У першому рядку виведіть кількість шуканих елементів, а у другому виведіть ті елементи першого масиву, яких немає у другому, у том у ж порядку, у якому вони йдуть у першому масиві.

Вхідні дані #1

7

3 1 3 4 2 4 12

6

4 15 43 1 15 1

Вихідні дані #1

4

3 3 2 12

program masivi;

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

i,j,n,m,k,k1 : integer;

BEGIN

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

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

k1:=0;

for i:=1 to n do begin

 k:=0;

 for j:=1 to m do begin

  if a[i]<>b[j] then k:=k+1;

 end;

 if k=m then begin

  k1:=k1+1; c[k1]:=a[i];

 end;

end;

writeln(k1);

for i:=1 to k1 do write(c[i],' ');

END.