1 PROGRAM ZUFALLSZAHLEN(OUTPUT);
3 CONST R0 = 2097149 (* 2^21 - 3 *);
4 ALFA = 2051 (* 2^11 + 3 *);
5 BASE = 2097152 (* 2^21 *);
8 H: ARRAY[0..9] OF INTEGER;
11 FUNCTION RANDOM: REAL;
12 BEGIN RN := (RN*ALFA) MOD BASE;
18 FOR I := 0 TO 9 DO H[I] := 0;
21 WRITE(X :16:10); IF N MOD 5 = 0 THEN WRITELN;
26 FOR I := 0 TO 9 DO WRITE(H[I]:8); WRITELN