uses Исполнители;

begin
  var множ1 := Множество.Новое(3,5,4,5);
  множ1.Вывести;
  
  var множ2 := Множество.Новое(7,5,3,9);
  множ2.Вывести;

  множ1.Пересечение(множ2).Вывести;
end.