По введенному числу от 0 до 15 вывести название цвета соответствующий этому ходу!

Просто сделать таблицу перечисления цветов  Если всего 16 цветов, то это обычно кодировка YRGB, например 1110b=14 - яркий жёлтый цвет Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 program z1; var  e : integer; a, b, d: string;   begin   writeln('Введите код и получите цвет');   ...   a:= 'Красный';   b:= 'Белый';   d:= 'Голубой';   ...       begin       readln(e);       if (e=0) then writeln(a);       if (e=1) then writeln(b);       if (e=2) then writeln(d);       end;   end.