uses Crt;

begin
  Randomize;
  repeat
    { Write random numbers }
    Writeln (Random(1000));
  until KeyPressed;
end.