17 lines
217 B
ObjectPascal
17 lines
217 B
ObjectPascal
|
unit set5u;
|
||
|
|
var a : set of byte;
|
||
|
|
b : set of integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
a := [1,2];
|
||
|
|
a += [4];
|
||
|
|
assert(a=[1,2,4]);
|
||
|
|
a -= [2];
|
||
|
|
assert(a=[1,4]);
|
||
|
|
a *= [4];
|
||
|
|
assert(a=[4]);
|
||
|
|
a := [1..5];
|
||
|
|
b := [2..4];
|
||
|
|
a *= b;
|
||
|
|
assert(a=[2..4]);
|
||
|
|
end.
|