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.
|