Зарисуйте любой пример графической схемы

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

Program colors; uses crt; var color: integer; label l1; begin clrscr;           l1: write('введите номер цвета color = ');                   readln(color);                   case color of 0: writeln('черный');                                               1: writeln('синий');                                               2: writeln('зеленый');                                               3: writeln('голубой');                                               4: writeln('красный');                                               5: writeln('фиолетовый');                                               6: writeln('коричневый');                                               7: writeln('светло-серый');                                               8: writeln('темно-серый');                                               9: writeln('ярко-синий');                                               10: writeln('ярко-зеленый');                                               11: writeln('ярко-голубой');                                               12: writeln('розовый');                                               13: writeln('малиноый');                                               14: writeln('желтый');                                               15: writeln('белый');                   else                   begin                             writeln('непривильный номер цвета');                             writeln;                             goto l1;                   end;                   end;           readln; end.