dado = Sequence(Random[1, 6], i, 1, 500)
f = Sequence(CountIf[x ≟ i, dado], i, 1, 6)
valores: {1, 2, 3, 4, 5, 6}
r: f / 500
a = BarChart(valores, r, 0.7)