NEERC/zero/tests/do07.dpr

   1 const\r
   2   n = 10000;\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       write(-1000000000000000)\r
  14   end;\r
  15   writeln;\r
  16 end.\r