Здравствуйте. Нужно написать программу на Pascal ABC Net. Суть программы такова, чтобы она рандомно выбирала цвета (красный, чёрный или зелёный), но с определёнными шансами, то есть Красный=43,75%, Чёрный=50% и Зелёный=6,25%. В результате программа должна выдать человеку какой цвет выпадет. В множество Красного цвета входят числа: 1,5,7,9,11,13,15
В множество чёрных: 2,4,6,8,10,12,14,16
В множество Зелёных: 3.