Adding some more judges, here and there.

[and.git] / NEERC / xtra / tests / do04.dpr

const\r
  n = 1000;\r
\r
var\r
  i: integer;\r
begin\r
  randseed := 4;\r
\r
  for i := 1 to n do begin\r
    writeln(random(2000) + 1);\r
  end;\r
  writeln(0);\r
end.\r