Pascal Светофор с заданным интервалом меняет свой цвет (Красный-Желтый-Зеленый-

Ответ: Вот держи…не знаю это ли ты хотел

uses graphABC;

begin

setwindowsize(400,500);  

rectangle(100,50,300,450);

floodfill(101,51,clGray);

circle(200,150,40);

circle(200,250,40);

circle(200,350,40);

for var i:=1 to 1 do begin

   floodfill(200,150,clred);

   sleep(2000);

   floodfill(200,150,clwhite);

   floodfill(200,250,clyellow);

   sleep(2000);

   floodfill(200,250,clwhite);

   floodfill(200,350,clgreen);

   sleep(2000);

   floodfill(200,350,clwhite);

   floodfill(200,250,clyellow);

   sleep(2000);

   floodfill(200,250,clwhite);

 end;

 Font.color :=clred;

 Font.Size := 11;

 textOut(0,15,’    СОБЛЮДАЙТЕ ПРАВИЛА ДОРОЖНОГО ДВИЖЕНИЯ’);

end.