Найти глубину цвета, если графический режим имеет 4096 цветов

Машинное обучение
Тоже на http://contest.ai-academy.ru/lessons# )?

P.S вот все ответы к 1 уроку 

Тест для проверки знаний

Вопрос 1. Какая технология\дисциплина пришла на смену экспертным системам?

Вопрос 2. Верно ли, что ИИ и компьютер не может отличить на фотографии кота от собаки?

Да, верно Нет, не верно

Вопрос 3. Существуют ли уже беспилотные автомобили, или это пока научная фантастика?

Да, существуют Нет, не существуют

Вопрос 4. Остались ли компьютерные игры и задачи, в которых человек лучше компьютера?

Да, остались Нет, все уже решено 

Вопрос 5. На каком языке программирования ведется большинство современных разработок в области ИИ и машинного обучения?

Program TablMul;

Const Size = 7;

Var
Ball: array[1..Size] of real;
Ocenka: array[1..Size] of integer;
Counter: integer;

Begin

Counter := 1;

while (Counter <= Size) do
begin
Write('Введите ', counter, ' ученика: ');
Readln(Ball[Counter]);
Counter := Counter + 1;
end;

Counter := 1;

Repeat
if (Ball[Counter] > 90) then
Ocenka[Counter] := 5

else if (Ball[Counter] >= 75) and (Ball[Counter] < 90) then
Ocenka[Counter] := 4

else if (Ball[Counter] >= 50) and (Ball[Counter] < 75) then
Ocenka[Counter] := 3

else
Ocenka[Counter] := 2;

Counter := Counter + 1;

Until (Counter > Size);

Writeln();

for var i := 1 to Size do
Writeln('Оценка ', i, ' ученика: ', Ocenka[i]);

End.