Question

Pascal
Светофор с заданным интервалом меняет свой цвет (Красный-Желтый-Зеленый-Желтый) несколько раз. В конце программы "зажигается" фраза "Соблюдайте правила дорожного движения"

Answer 1

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

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.