t_id
434
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
524775656 | 948073 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0235.pp } { Val(cardinal) bugs OK 0.99.11 (JM) } program bug0233; var s:string; w:cardinal; code:word; begin s:='192'; val(s,w,code); if code<>0 then begin writeln('Error'); halt(1); end else writeln(w); end.