1 PROGRAM PSEUDOZUFALL(OUTPUT);
4 Z: ARRAY[0..9] OF INTEGER;
7 FOR I := 0 TO 9 DO Z[I] := 0;
10 R := RANDOM; I := TRUNC(10*R);
11 WRITE(R:16:10); Z[I] := Z[I] + 1;
12 IF N MOD 5 = 0 THEN WRITELN
14 WRITELN; WRITELN("KLASSENHAEUFIGKEITEN":50);
15 FOR I := 0 TO 9 DO WRITE(Z[I]:8);