pascalabcnet/TestSuite/set10.pas
Бондарев Иван 50ecdde5e9 bug fix #312
2016-12-04 20:12:47 +01:00

5 lines
82 B
ObjectPascal

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