task4

const n=10;
var a,b:array[1..n] of longint;
    i,j,k:integer;
    f:boolean;
Begin

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

  for i:=1 to n do begin
    read(b[i]);
  end;

  for i:=1 to n do
   begin
    f:=true;
    j:=1;
    while (j<=n) and (f=true) do
      if b[j]=a[i] then f:=false
        else j:=j+1;
      if (f=true) then begin
        write(a[i],' ');
      end;
   end;

End.