СРОЧНО!!!
Задача PascalABC
Светофор для автомобиля.
Вводится время (до 60 минут). Зеленый горит 2 минуты; желтый горит минуту; красный горит 3 минуты. Определить какой свет горит в минуту t. T вводится вручную.

Благодарю!!

всегда пожалуйста

Program hhh54;var t: longint;begin  read (t);  if ((t-1) mod 6 = 0) or ((t-2) mod 6 = 0) then write ('ЗЕЛЁНЫЙ')  else begin    if (t mod 3 = 0) and (t mod 6 <> 0) then write ('ЖЁЛТЫЙ')    else write ('КРАСНЫЙ');  end;end.