NEERC/zero/tests/do06.dpr

   1 const\r
   2   n = 10000;\r
   3 \r
   4 var\r
   5   i: integer;\r
   6   x: int64;\r
   7 begin\r
   8   randseed := 6;\r
   9 \r
  10   writeln(n);\r
  11   for i := 1 to n do begin\r
  12     if i > 1 then\r
  13       write(' ');\r
  14     x := int64(random(10000000))*100000000 + random(100000000) + 1;\r
  15     if random(2) = 0 then\r
  16       x := -x;\r
  17     write(x);\r
  18   end;\r
  19   writeln;\r
  20 end.\r