t_id
381
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ 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.