9 lines
218 B
Text
9 lines
218 B
Text
type
|
|
days = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
|
|
var
|
|
workDays, week, weekendDays: set of days;
|
|
begin
|
|
workdays := [Mon, Tue, Wed, Thu, Fri];
|
|
week := workdays + [Sat, Sun];
|
|
weekendDays := week - workdays;
|
|
end;
|