NEERC/zero/tests/do04.dpr

   1 const\r
   2   n = 1234;\r
   3 \r
   4 var\r
   5   i: integer;\r
   6 begin\r
   7   randseed := 4;\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(random(2000) - 1000);\r
  14   end;\r
  15   writeln;\r
  16 end.\r