NEERC/xtra/tests/do06.dpr

   1 const\r
   2   n = 1000;\r
   3 \r
   4 var\r
   5   i: integer;\r
   6   x: int64;\r
   7 begin\r
   8   randseed := 6;\r
   9 \r
  10   for i := 1 to n do begin\r
  11     x := random(1000000000) + 1;\r
  12     writeln(x);\r
  13   end;\r
  14   writeln(0);\r
  15 end.\r