t_id
1521
t_adddate
2005/03/12
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022404400 | 1027328 | True | False | Successfully run |
Record count: 1
{$mode objfpc} type ta1 = array[0..10] of longint; var a1 : array[0..10] of longint; a2 : array of longint; i : longint; begin for i:=low(a1) to high(a2) do a1[i]:=i*i; a2:=a1; if length(a2)<>length(a1) then halt(1); for i:=low(a1) to high(a2) do if a2[i]<>a1[i] then halt(1); writeln('ok'); end.