t_id
795
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525818104 | 948250 | True | False | Successfully run |
Record count: 1
type Days = (Mon, Tue, Wed, Thu, Fri, Sat, Sun); Weekdays = Mon..Fri; Weekend = Sat..Sun; begin WriteLn('Days ', Ord(Low(Days)) , Ord(High(Days)) :2); WriteLn('Weekdays ', Ord(Low(Weekdays)), Ord(High(Weekdays)):2, ' should be 4!'); WriteLn('Weekend ', Ord(Low(Weekend)) , Ord(High(Weekend)) :2); if ord(high(weekdays))<>4 then begin writeln('ERROR!'); Halt(1); end; end.