BEGIN gewonnenOhneWechsel := 0 gewonnenMitWechsel := 0 n := 1000000 REPEAT n TIMES auto := RANDOM(0..2) wahl := RANDOM(0..2) IF wahl == auto THEN gewonnenOhneWechsel := gewonnenOhneWechsel + 1 ELSE gezeigt := 3 - wahl - auto wechsel := 3 - wahl - gezeigt IF wechsel == auto THEN gewonnenMitWechsel := gewonnenMitWechsel + 1 END IF END IF END REPEAT PRINT "gewonnen ohne Wechsel ", gewonnenOhneWechsel*100. / n, "%" PRINT "gewonnen mit Wechsel ", gewonnenMitWechsel*100. / n, "%" PRINT "verloren ", 100 - (gewonnenMitWechsel+gewonnenOhneWechsel)*100. / n, "%" END