a=rnd (20)
if a <= NumberRed
red
else if a<= NumberRed+NumberBlack
Black
else if a<= NumberRed+NumberBlack+NumberBlue
Blue
endif endif endif
if a <= NumberRed
red
else if a<= NumberRed+NumberBlack
Black
else if a<= NumberRed+NumberBlack+NumberBlue
Blue
endif endif endif