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