15 lines
286 B
ObjectPascal
15 lines
286 B
ObjectPascal
uses Исполнители;
|
|
|
|
begin
|
|
Множество.Добавить(5);
|
|
Множество.Добавить(3);
|
|
Множество.Добавить(5);
|
|
Множество.Добавить(4);
|
|
Множество.Вывести;
|
|
Множество.Удалить(3);
|
|
Множество.Вывести;
|
|
Вывести(Множество.Содержит(3));
|
|
Вывод.ПустаяСтрока;
|
|
Множество.ВывестиВсеМетоды;
|
|
end.
|
|
|