program settest2;
type weekday = (Mon,Tue,Wed,Thu,Fri,Sat,Sun);
     days = set of weekday;

var s:days;
    d:weekday;

begin
	s := [Sat,Sun]; (* set literal  *)

	d := Sun;
	if d in [Sat,Sun] then (* array literal *)
		writeln('weekend');

	if d in s then
		writeln('also weekend');

	d := Mon;
	s := s + [d];
end.