Ozma

var rollcount : array 1 .. 6 of int := init (0, 0, 0, 0, 0, 0)
var die : int

for i : 1 .. 10000
    randint (die, 1, 6)
    rollcount (die) := rollcount (die) + 1
    drawfillbox (die * 40, 0, die * 40 + 30, rollcount (die), die)
    drawline (0, 500, maxx, 500, red)
    delay (5)
    exit when rollcount (die) = 500
end for