Дано вещественное число I, означающее время в минутах, прошедшее с начала очередного часа. Определить, сигнал какого цвета горит для пешеходов в этот момент

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

program  f;
label 1;
var p,i,code,n:integer;
    s:string;
    bb:boolean;
 
begin
1:write('I= '); readln(i);
if p>1000000 then begin writeln('ERROR: Pi < 999999'); goto 1  end;
 
repeat
if i>0 then begin i:=i-3; s:='zelenii'; end;
if i>0 then begin i:=i-2; s:='krasnii'; end;
 
until i<=0;
writeln(s);
readln;
end.