t_id
1320
t_adddate
2004/07/15
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Const N = 10000; Var count : array[0..200] of int64; i , tot : longint; Begin fillchar(count , sizeof(count) , 0); for i := 1 to N do begin inc(count[random(201)]); end; tot := 0; for i := 0 to 200 do inc(tot , count[i]); if (tot <> N) then halt(1); End.