По схеме составь формулу и таблицу истинности.

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.             

Жили были монитор, клавиатура,системный блок и мышь.Они все жили в разных районах,но случилось так,что они все переехали и стали жить рядом с друг другом.Далее они пошли в одну школу,но почему-то не общались.Их всех избрали в школьный парламент.В рамках этого парламента им нужно было сделать один совместный проект.Сначала они не поладили,системный блок задирал остальных, особенно мышь, которую он прозвал серой мышкою.Все остальные обиделись на системный блок,и стали работать над проектом втроём.Системный блок признал свою ошибку,и попросил у всех прощения.Когда над проектом работали только трое, ни-че-го не получалось.Но все вместе они создали уникальный проект и получили за него пятерку.Ребята усвоили,что порознь-они ничего не добьются,но вместе-они свернут горы)