Парикмахерская, программа Опции

[Дон]

Парикмахерская. Для каждого посетителя парикмахерской (с одним мастером) известны следующие величины: t – момент его прихода и τ – продолжительность его обслуживания. Сколько клиентов обслужит мастер за смену продолжительностью Т? Сколько рабочего времени он потратит на обслуживание?
Момент прихода и продолжительность обслуживания вводятся пользователем..
Помогите,плизз,если кто может..

[Дон]

Поварьируй c в пределах от 0 до 15 (для фона от 0 до 7).

И цвет фона поменял и текста,только...
Нужно чтобы цвет меняла только надпись "Парикмахерская"..а так как мы вставляем оператор textcolor после begin,то цвет меняет весь текст в программе...
я думал что-то получится,если напишу так:

Код

begin
TextColor(2);
Write('Парикмахерская');
end;

то есть отдельным циклом...но не вышло..как поступить?

Плохо выглядит вывод времени в долях часа..

действительно плохо..как этого можно избежать?