pascalabcnet/TestSuite/set10.pas

5 lines
90 B
ObjectPascal

begin
var s1 := ['a'];
var s := SetOf('a','b','c')-s1;
assert('b' in s);
end.