Помогите, пожалуйста, написать прогу!

[BeaU]

Работа светлофора для пешехода запрограммирывана следуйщим образом: начиная с начала каждого часа, в течение двух минут - красный, в течении трех минут - опять зеленый и т.д.
Дано вещественное число t, означающее время в минутах, прошедшее с начала очередного часа.
Определить, сигнал какого цвета горит для пешеходов в этот момент.

На условный оператор

[Hacker19_90]

Опиши точно работу светлофора !!!Какие цвета и скок горят???
Горят по циклу в течение всего часа, или только раз за час??

[BeaU]

Там все написано в условии! Прочитай ещё раз!

[Hacker19_90]

наверно правильно будет, это делить прошедшее время на 5,т.е полный цикл работы светофора, до тех пор пока это время не станет меньше 5;

IF (t <= 5) Then
    if (t in [0,0.01..2]) then Writeln ('Красный')
    else Writeln ('Зелёный')
Else
begin
    while (t > 5) do
    begin
        t := t/5;
    end;
    if (t in [0,0.01..2]) then Writeln ('Красный')
    else Writeln ('Зелёный');
end;

[BeaU]

Что-то она не работает..(( Не могу понять как её делать...