[ART]

Не совсем понял задание... Что значит "путем выделения"? подходящие элементы должны исключаться из Y?

Код:

var
  X1: set of byte;
  Y : set of byte;
 i: integer;
begin
Randomize;
 for i := 1 to 100 do
  X1 := X1 + [Random(255) + 1];
 for i := 1 to 255 do
  if i in X1 = true then
   if (i mod 2 <> 0) or (i mod 17 = 0) then
    Y := Y + [i];
end;