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

  Begin
  M2:=[]; M3:=[]; {Пустые множества}
  for k:=1 to 20 do
  begin
  if k mod 2 = 0 then Include(M2,k); {Включение элемента делящегося на 2 в
                                                            множество М2}
  if k mod 3 = 0 then Include(M3,k); { Включение элемента делящегося на 3 в
                                                            множество М3}
  end;
  M2and3:=M2*M3; {Пересечение двух множеств}
  M2or3:=M2+M3; {Объединение двух множеств}
  write(' На 2 и 3 делятся числа: ');
  for k:=1 to 20 do { Цикл для опеределения элементов в множестве}
  if k in M2and3 then write(k:3); { вывод элементов делящихся на 6} writeln;
  write(' На 2 или 3 делятся числа: ');
  for k:=1 to 20 do
  if k in M2or3 then write(k:3); readln; {Остановка для просмотра}
  End.

       15. Тип данных - записи, их описание и использование.
                          Оператор присоединения

      Запись - это структура данных, состоящая их фиксированного числа
компонентов, называемых полями. Запись имеет имя. Каждое поле записи
также имеет имя. Обращение к любому элементу записи осуществляется по
составному имени, имеющему вид:
      Имя записи.Имя поля
      В отличие от массива компоненты (поля или элементы) записи могут
быть различного типа. Записи удобно использовать в тех случаях, когда
необходимо описать атрибуты (характеристики или свойства) одного объекта,
имеющие различный тип.
      Запись может быть объявлена в разделе Var, а также в разделах Type и
Var, одновременно.
      1. Var Имя записи:RECORD
                 Имя поля 1:тип;
                 Имя поля 2:тип;
                       ...
                 Имя поля n:тип
                       END;
                       или
      2. Type Имя типа для записи=RECORD
                 Имя поля 1:тип;
                 Имя поля 2:тип;