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

Var T : Real;Begin  Readln(T);  T:=T-Int(T/6)*6;  If T<=3 then Writeln('Зелёный') else   If T<=4 then Writeln('Жёлтый') else Writeln('Красный');end.