Заданное натуральное число n и 2 одномерные массивы x и y, содержащие n элемент по каждому. сформировать и вывести массив, каждый элемент которого, взятый из массива х, не принадлежит множеству, образованному из элементов массива y.

// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var x:=ArrRandom(n,-50,50); Write('x: '); x.Println;
  var y:=ArrRandom(n,-50,50); Write('y: '); y.Println;
  var z:=x.Where(p->not y.Any(q->p=q)).ToArray;
  Write('z: '); z.Println
end.

Пример
n= 17
x: -29 16 -20 -14 47 37 29 4 50 42 -30 38 -7 6 32 -11 -33
y: -26 32 24 18 -39 38 -18 -8 -42 -7 46 38 -4 -43 47 -27 -13
z: -29 16 -20 -14 37 29 4 50 42 -30 6 -11 -33