13、_ge:integerrange0to9;constantloop_time:integer:=40;个循环周期的时间constantred_time:integer:=20;--红灯的时间constantgreen_time:integer:=17;--绿灯的时间constantyellow_time:integer:=3;--黄灯的时间begin process(clock_in)--分频进程 begin ifrising_edge(clock_in)then ifcount_time=loop_hzthen