Счётчики Опции

[Катя]

Помогите.Возможно ли это реализовать в Паскале?
В общежитие общие ванные комнаты .Если в ванной комнате есть женщина ,то другая женщина может туда зайти ,а мужчина не может, и наоборот.На двери ванной есть индикатор,показывающий, в каком из трёх состояний находится ванная:

А)никого нет;
Б)в ванной женщина;
В)в ванной мужчина;

Напишите следующие процедуры:woman_wants_to_enter, man_wants_to_enter,woman_leaves,man_leaves.Вы можете использовать любые счётчики и синхронизаторы .

[virt]

woman_wants_to_enter ::
if cur_in_bath in [woman,none] then can_enter := true else can_enter := false;

man_wants_to_enter аналогично

а вот woman_leaves и man_leaves что дложны делать? может нарисовать должны процесс выхода?