Pascal. Задача на логику: составить программу, которая по данным составит расписание занятий.

Учитель литературы может провести 1, 2, 3 уроки;
Учитель физкультуры (физ-ры) может провести 1, 4 уроки;
Учитель математики может провести 2, 3, 4 уроки;
Учитель технологии (трудов) может провести 3, 4 уроки.

Т.е. входные данные такие:
1110
1001
0111
0011

Вывод (к примеру):
Литература
Математика
Технология
Физкультура

Помогите исходником или расписанным алгоритмом. Буду благодарен.