PROGRAM RANDOMIZE2(INPUT,OUTPUT,NUM1);
  VAR I,K,N,N1:INTEGER;
  FUNCTION RND:REAL;
    CONST M=100000;
          A=20621;
          C=21131;
  BEGIN (*RND*)
    N1:=(A*N1+C) DIV M;
    RND:=N1/M
  END;(*RND*)

BEGIN I:=0;
  WRITE("ZEIT IN HHMM"); READLN(N1); WRITELN;
  WRITE("ANZAHL DER ZUFALLSZAHLEN"); READLN(K);
  FOR K:=K DOWNTO 1 DO
  BEGIN
    N:=TRUNC(RND*1000+1);
    WRITE(N:5); WRITELN(NUM1,N);
    I:=I+1; IF I=10 THEN BEGIN I:=0; WRITELN END
  END
END.