task body Crossroads is
    LC: Lamp_color;
    begin
        loop
        Lamp.GetColor(LC);
            select
                when LC = Zold => accept Cross(T: in Duration)
                do
                    delay(T);
                end Cross;
            or
                accept Wake_Up
                do
                    null;
                end Wake_Up;
            end select;
        end loop;
    end;