12 lines
190 B
ObjectPascal
12 lines
190 B
ObjectPascal
uses Исполнители;
|
|
|
|
begin
|
|
var множ1 := Множество.Новое(3,5,4,5);
|
|
множ1.Вывести;
|
|
|
|
var множ2 := Множество.Новое(7,5,3,9);
|
|
множ2.Вывести;
|
|
|
|
множ1.Пересечение(множ2).Вывести;
|
|
end.
|
|
|