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.