pascalabcnet/TestSuite/set10.pas

5 lines
82 B
ObjectPascal
Raw Permalink Normal View History

2016-12-04 22:12:47 +03:00
begin
var s1 := ['a'];
var s := ['a','b','c']-s1;
assert('b' in s);
end.