7 lines
96 B
ObjectPascal
7 lines
96 B
ObjectPascal
//!!!!!!!!!!!
|
|
var s: set of byte;
|
|
begin
|
|
s := [1,2,3];
|
|
//Exclude (s, [1]);
|
|
write(1 in s);
|
|
end. |