t_id
10
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525037859 | 948118 | True | False | Successfully run |
Record count: 1
type days = (sun,mon,tue,wed,thu,fri,sat); workdays = mon..fri; procedure t(d: workdays); begin case d of mon: writeln('monday'); thu: writeln('thursday'); else writeln('error'); end; end; var d: workdays; begin d := thu; t(d); end.