const
  n = 10;
 
var
  i: integer;
  a: array[1..20] of integer;
  b: array[1..n] of integer;
  c: array[1..n] of integer;
  d: array[-32768..32767] of boolean;
  count: integer;
begin
  randomize;
  //
  for i := 1 to 20 do a[i] := random(65535) - 32768;
  for i := 1 to n  do b[i] := random(65535) - 32768;
  //
  for i := 1 to n  do d[b[i]] := true;
  for i := 1 to 20 do d[a[i]] := false;
  //
  count := 0;
  for i := -32768 to 32767 do
    if (d[i]) then begin
      //
      inc(count);
      c[count] := i;
    end;
  //
  for i := 1 to count do
    write(c[i], ', ');
end.
 

Y29uc3QKICBuID0gMTA7Cgp2YXIKICBpOiBpbnRlZ2VyOwogIGE6IGFycmF5WzEuLjIwXSBvZiBpbnRlZ2VyOwogIGI6IGFycmF5WzEuLm5dIG9mIGludGVnZXI7CiAgYzogYXJyYXlbMS4ubl0gb2YgaW50ZWdlcjsKICBkOiBhcnJheVstMzI3NjguLjMyNzY3XSBvZiBib29sZWFuOwogIGNvdW50OiBpbnRlZ2VyOwpiZWdpbgogIHJhbmRvbWl6ZTsKICAvLwogIGZvciBpIDo9IDEgdG8gMjAgZG8gYVtpXSA6PSByYW5kb20oNjU1MzUpIC0gMzI3Njg7CiAgZm9yIGkgOj0gMSB0byBuICBkbyBiW2ldIDo9IHJhbmRvbSg2NTUzNSkgLSAzMjc2ODsKICAvLwogIGZvciBpIDo9IDEgdG8gbiAgZG8gZFtiW2ldXSA6PSB0cnVlOwogIGZvciBpIDo9IDEgdG8gMjAgZG8gZFthW2ldXSA6PSBmYWxzZTsKICAvLwogIGNvdW50IDo9IDA7CiAgZm9yIGkgOj0gLTMyNzY4IHRvIDMyNzY3IGRvCiAgICBpZiAoZFtpXSkgdGhlbiBiZWdpbgogICAgICAvLwogICAgICBpbmMoY291bnQpOwogICAgICBjW2NvdW50XSA6PSBpOwogICAgZW5kOwogIC8vCiAgZm9yIGkgOj0gMSB0byBjb3VudCBkbwogICAgd3JpdGUoY1tpXSwgJywgJyk7CmVuZC4K