t_id
81
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949103386 | 1015527 | True | False | Successfully run |
Record count: 1
{ %VERSION=1.1 } {$mode delphi} var a,c1,c2 : ansistring; aa : array[1..10] of ansistring; i : longint; begin c1:='Hello '; c2:=' world'; a:=c1+c2; finalize(a); if length(a)<>0 then halt(1); for i:=1 to 10 do aa[i]:=c1+c2; finalize(aa[1],10); for i:=1 to 10 do if length(aa[i])<>0 then halt(1); end.