blob: d7af769054c37b4861d2db594b2e767fa39e530c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ Old file: tbs0163.pp }
{ missing <= and >= operators for sets. OK 0.99.11 (JM) }
Program test;
{ shows missing <= and >= for sets }
Type
Days = (Monday,tuesday,wednesday,thursday,friday,saturday,sunday);
Var
FreeDays,Weekend : set of days;
begin
Weekend := [saturday, sunday];
FreeDays := [friday, saturday, sunday];
If (Weekend <= Freedays) then
Writeln ('Free in weekend !');
end.
|
