type MySet = set of byte;

procedure PrintSet(x: MySet);
var i: byte;
begin
  for i:=Low(x) to High(x) do
    begin
      if i in x then Write(i, ' ')
    end;
  WriteLn
end;

Const
  set1: MySet = [1, 2, 3];
  set2: MySet = [2, 3, 4];
begin
  Write('set1 ='); PrintSet(set1);
  Write('set2 ='); PrintSet(set2);
  Write('set1 * set2 ='); PrintSet(set1 * set2);
  Write('set1 + set2 ='); PrintSet(set1 + set2);
  Write('set1 - set2 ='); PrintSet(set1 - set2)
end.