20 lines
337 B
ObjectPascal
20 lines
337 B
ObjectPascal
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.
|