Напишите программу построение светофора в паскале

var   timeInSec:integer; // время в секундах   color, s, m, h:byte; begin   h := 4; //часы   m := 5; //минуты   s := 23; //секунды   timeInSec := h * 3600 + m * 60 + s; //перевод времени в секунды   color := (timeInSec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет}   {потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас   цвет}   case color of //вывод ответа     0: writeln('Горит зеленый свет'); //0 - это зеленый свет     1: writeln('Горит желтый свет'); //1 - это желтый свет     2: writeln('Горит красный свет'); //2 - это крсный свет   end; end.

USES GraphABC, CRT;  VAR klavisha:char; begin   maximizewindow;   rectangle(600,100,1200,1000);   circle(900,250,100);   circle(900,500,100);   circle(900,750,100);   repeat     klavisha:=readkey;     circle(900,250,100);     circle(900,500,100);     circle(900,750,100);     if klavisha='1' then floodfill(900,250,clred);     redraw;     if klavisha='2' then floodfill(900,500,clyellow);     redraw;     if klavisha='3' then floodfill(900,750,clgreen);     redraw;   until 9>10; end. Среда разработки PascalABC, свет на светофоре переключать на 1, 2 и 3 соответственно.