program zufallszahlen;
{$APPTYPE CONSOLE}
uses
  Windows;

var
  i:Integer;
begin
  Randomize;
  for i:=1 to 100 do
  begin
    Writeln(Random(99999));
    Sleep(1);
    Sleep(0);
  end;
end.