Работа светофора для водителей запрограммирована следующим образом: в начале каждого часа в течение трёх минут горит зелёный сигнал, затем, в течение одной минуты – жёлтый, в течение двух минут – красный, в течение трёх минут – опять зелёный и т.д. дано вещественное число т, означающее время в минутах с начала очередного часа. определить, сигнал какого цвета горит для водителей в этот момент.
Begin
Readln(T);
T:=T-Int(T/6)*6;
If T<=3 then Writeln('Зелёный') else
If T<=4 then Writeln('Жёлтый') else Writeln('Красный');
end.