Алгоритмические языки и программирование. Игошина Л.В. - 51 стр.

   Значения переменных множества задаются в разделе операторов с
помощью конструктора множества, который представляет собой список
элементов базового типа, заключенный в квадратные скобки.
   Например:
   Var M1,M2,M3:set of 1..99;
   Begin . . .
      M1:=[]; { Множество пустое}
      M2:=[1,3,5,7,9]; { Множество нечетных чисел в первом десятке}
      M3:=[2,4,6,8]; { Множество четных чисел в первом десятке}
            ...
   End.
   В качестве элементов в изображении множеств допускается использовать
константы и выражения, тип которых совместим с базовым типом.
   Типизированная константа - множество задается в виде правильного
конструктора множества, например:
   Type
      Type_month=(Jn,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
      TDays=Set of 1..31;
      Tmonth=Set of 1..12;
      Tsym=Set of 'A'..'Z';
      Tmno=Set of Type_month;
   Const
      SymMno:Tsym=['A','E','I','O','U']; {подмножество гласных букв}
      DaysMno:TDays=[1,8,15,22,29]; {подмножество выходных дней месяца}
      Spring_Mes:Tmonth=[3,4,5]; {подмножество весенних месяцев года}
      Spring_Month:Tmno=[Mar,Apr,May]; {то же, что и предыдущее}

   Над множествами определены следующие операции:
1) ∗ - пересечение множеств: результат содержит элементы, общие для обоих
   множеств. Например: пусть имеется описание:
   Var S1,S2,S3,S4,S5:Set of 1..10;
   Begin
   S1:=[1,3,4,6];
   S2:=[2,4,5,1];
   S3:=S1*S2;     - в S3 будет содержаться [1,4].
2) + - объединение множеств : результат содержит элементы первого
   множества, дополненные недостающими элементами из второго
   множества:
   S4:=S1+S2; - в S4 будет содержаться [1,3,4,6,2,5].
3) − - разность множеств: результат содержит элементы из первого
   множества, которые не принадлежат второму:
   S5:=S1-S2; - в S5 будет содержаться [3,6].