Кто хоть немного разбираеться в В программе задан список цветов a = ['red', 'green', 'yellow', 'blue']. Что будет результатом выполнения команды color = choice(a)? *

Program task8;
var ch:integer;
begin 
writeln('Введите число: ');
readln (ch);
case ch of
1:begin writeln ('понедельник'); writeln ('Литература'); writeln ('История'); writeln ('Алгебра'); writeln ('Английский'); writeln ('ОБЖ'); writeln ('Геометрия'); end;
2:begin writeln ('вторник '); writeln ('Обществознание '); writeln ('Информатика'); writeln ('Физика'); writeln ('Химия '); writeln ('География'); writeln ('Английский'); writeln ('Физкультура');end;
3:begin writeln ('среда '); writeln ('Физика'); writeln ('Физкультура'); writeln ('Алгебра'); writeln ('Алгебра'); writeln ('Французский'); writeln ('Русский'); writeln ('История');end;
4:begin writeln ('четверг ');writeln ('Французский'); writeln ('Алгебра'); writeln ('Геометрия'); writeln ('Английский'); writeln ('Английский'); writeln ('География'); writeln ('Физкультура');end;
5:begin writeln ('пятница '); writeln ('Информатика'); writeln ('Обществознание'); writeln ('Физика'); writeln ('Астрономия'); writeln ('Русский'); writeln ('Литература'); writeln ('Биология');end;
6:begin writeln ('суббота '); writeln ('- в этот день занятий нет'); end;
7:begin writeln ('воскресенье '); writeln ('- в этот день занятий нет'); end;
else writeln('Ошибка ввода');
end; 
end.

Пример:
Введите число 5
пятница
Информатика
Обществознание
Физика
Астрономия
Русский
Литература
Биология

Нужно узнать племянницу Черных Н.И.
То есть это некий человек у которого есть племянница . Для начала нужно узнать ее родителей, а затем узнать , есть ли у неё брат или сестра и посмотреть их детей.
Давайте узнаём ее родителей
Посмотрим на первую таблицу , находим ID Черных Н.И. , ID=10 , это первая строка .
Далее смотрим на вторую таблицу , где написано ID ребёнка . Находим число 10 , оно находится в самом конце , а слева число 85 , это один из его родителей . Теперь смотрим на таблицу 1 и смотрим кто это такой . Это Гуревич И.Т. Это его папа, так как написан под мужской.
Теперь снова смотрим на таблицу 2. Где написано ID родителя . Находим сейчас детей Гуревич И.Т. , то есть ищем ID 85.
У этого человека есть ребёнок под ID 13, 82, 10.
Под ID 10 это его сын, у которого мы и должны определить племянницу.
Смотрим на ID 13. То есть это его сестра , и мы должны найти ее детей. Теперь смотрим на таблицу 2 где ID родителя , ищем 13. У неё есть дети под ID 42, 23 теперь смотрим на 1 таблицу и определяем их под
Под ID 42 пол женский нам подходит
Под ID 23 пол мужской нам не подходит
Не забываем что есть ещё ID 82 это его брат . То есть брат Черных Н.И и мы видим что во 2 таблице , где ID родителя нет этого номера , это значит , что у его брата нет детей .
А значит наш ответ под номером ID 42 это Цейс А.Т.
Надеюсь я