Author: A. Nussbaumer
Date: 17 März 2013

Noch einmal

ListeA = Sequence(Random[1, 6], i, 1, 1000)
ListeC = Sequence(Random[1, 6], i, 1, 1000)
ListeB = Sequence(Random[1, 6], i, 1, 1000)
Ergebnis = Sequence(Element[ListeA, i] + Element[ListeB, i] + Element[ListeC, i], i, 1, 1000)
n = BarChart(Ergebnis, 1)