NEERC/zero/tests/do05.dpr

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