11 lines
239 B
ObjectPascal
11 lines
239 B
ObjectPascal
begin
|
|
var s: set of integer := [1,2,3];
|
|
var hs: HashSet<integer>;
|
|
hs := s;
|
|
assert(3 in hs);
|
|
hs.Println;
|
|
var set1: set of integer := hs;
|
|
assert(2 in set1);
|
|
var h: HashSet<integer> := [1,3,5];
|
|
assert(3 in h);
|
|
end. |