type TCol = (red, green, blue);

var s : set of integer := [red];
begin
end.