Вычислите значение переменных для данных команд присваивания

uses crt;
var c:char;
begin clrscr;
write('Введите символ ');
readln(c);
case c of '0'..'9':write('Это десятичная цифра, ее код ',ord(c)); 'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c)); 'a'..'z':write('Это строчная латинская буква, ее код ',ord(c));
'+','-','*':write('Это знак арифметического действия, его код ',ord(c)); //убрал знак /, он в спец. символах ';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c)); else write('Символ не входит в указанный список') end; readln end.

1.Измерение цвета.

2.При определении красного цвета.

3.Добавление вкладок.

4.Желтый, синий.

5.Синий-движение вперед. зеленый-движение назад. желтый-поворот налево. красный-поворот направо.

6.Синий-выводит линию на монитор. зеленый-выводит круг на монитор. желтый выводит прямоугольник на монитор. красный выводмт точку на монитор.

7.Начало-движение вперед 5 оборотов-если поле красного цвета движение вперед 1 оборот, в противном случае движение назад 1 оборот-поворот направо-издание звука.

8.Блок со звуком во вкладку крестиком, блок движения вперед во вкладку с галочкой.

9.Датчик касания, датчик цвета.