Liste1 = Sequence(Random[1, 6], i, 1, 1000)
Liste2 = Sequence(Random[1, 6], i, 1, 1000)
Ergebnis = Sequence(Element[Liste1, i] + Element[Liste2, i], i, 1, 1000)
Anzahl = Sum(Sequence[If[Element[Ergebnis, i]  <  12, 0, 1], i, 1, 1000])
Wahrscheinlichkeit: Anzahl / 1000