Pascal: Есть набор цветов:'red', 'orange', 'yellow', 'green', 'blue', 'magenta'. С клавиатуры вводится цвет. Определить его порядковый номер в этом множестве.