Просто сделать таблицу перечисления цветов
Если всего 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.