1*44131Sbosticmodule sets; 2*44131Sbostictype 3*44131Sbostic Color = (RED, BLUE, GREEN); 4*44131Sbostic ColorSet = set of Color; 5*44131Sbosticvar 6*44131Sbostic s : ColorSet; 7*44131Sbostic 8*44131Sbosticprocedure p (var s : ColorSet); 9*44131Sbosticbegin 10*44131Sbostic s := ColorSet{RED, BLUE}; 11*44131Sbosticend p; 12*44131Sbostic 13*44131Sbosticbegin 14*44131Sbostic p(s); 15*44131Sbostic if BLUE in s then 16*44131Sbostic s := s - ColorSet{BLUE}; 17*44131Sbostic end; 18*44131Sbosticend sets. 19