Как определить, есть у двух множеств пересечение, или нет? - Pascal

Формулировка задачи:

Как определить, есть у двух множеств пересечение, или нет?

Решение задачи: «Как определить, есть у двух множеств пересечение, или нет?»

Листинг программы

var
  a,b,c:set of byte;
  d:byte;
begin
  for d:=1 to 6 do a:=a+[d];
  for d:=4 to 9 do b:=b+[d];
  c:=b-(b-a);
  writeln('1)');
  for d:=1 to 9 do
    if d in c then write(d:2);
  writeln;
  c:=b*a;
  writeln('2)');
  for d:=1 to 9 do
    if d in c then write(d:2);
end.

Объяснение кода листинга программы

Переменным a, b и c присваивается тип set of byte, то есть они представляют собой множества байтовых значений.
Переменная d инициализируется значением 1 и используется в циклах.
В цикле от 1 до 6 к множеству a добавляются элементы с значениями от 1 до 6.
В цикле от 4 до 9 к множеству b добавляются элементы с значениями от 4 до 9.
Множество c инициализируется как пересечение множеств a и b.
Выводится сообщение 1) и в цикле от 1 до 9 выводятся элементы множества c в двоичном формате.
Множество c инициализируется как произведение множеств a и b.
Выводится сообщение 2) и в цикле от 1 до 9 выводятся элементы множества c в двоичном формате.