2018-08-07 18:50:54 +03:00
|
|
|
|
begin
|
|
|
|
|
|
var tupl := (1,2,[3,4,5]);
|
|
|
|
|
|
assert(tupl.Item1 = 1);
|
2024-12-10 10:59:20 +03:00
|
|
|
|
assert(tupl.Item3 = SetOf(3,4,5));
|
2018-08-07 18:50:54 +03:00
|
|
|
|
assert(4 in tupl.Item3);
|
|
|
|
|
|
var s: set of integer := tupl.Item3;
|
|
|
|
|
|
assert(4 in s);
|
|
|
|
|
|
end.
|
