Einfache "Kugeln Ziehen"-Aufgabe mit Schleife

[sx2008]

Ich hab da grad noch einen grossen Fehler entdeckt:
fall := Random( 3 ) + 1; // jetzt gibt es Werte von 1..3
Das ist aber aus Sicht der Wahrscheinlichkeit nicht korrekt, denn es gibt 4 Fälle:
1: Schwarz + Schwarz
2: Weiss + Weiss
3: Schwarz + Weiss
4: Weiss + Schwarz
Die Wahrscheinlichkeit zweier Kugeln mit unterschiedlicher Farbe beträgt 50% aller Fälle.
So wie es bisher programmiert wurde wäre die Wahrscheinlichkeit nur 1/3.

Achja, der Kommentar bei dem Fall #2 ist wohl durch Copy & Paste entstanden;
   2: begin {Zwei Weiße Kugeln rausgenommen, eine Schwarze wieder rein}