Delphi-Quellcode:
var
WuerfelErgebnisse=Array[1..6] of Integer;
randomize;
for i := 1 to 6 do
WuerfelErgebnisse[i]:=0;
for i := 1 to AnzahlDerWuerfe do
WurefelErgebnisse[random(6)+1]:=WurefelErgebnisse[random(6)+1]+1;
Wie immer ungetestet (tm), müsste aber gehen
(BTW: Passys ist ziemlich unbrauchbar, da die ergebnisse nur zwischen 1 und 5 liegen können)