Срочно! Помогите с задачей на Паскале

Question

В Паскале нарисовать дорожный знак на столбе со светофором. У светофора должен мигать один фонарь. В программе должны быть комментарии, поясняющие принцип работы.

user_3172588 · Accepted Answer

uses GraphABC;
var b: boolean;
begin
setwindowtitle ('Светофор ! ');
setwindowsize (200,600);
SetPenWidth (8);
moveto (100,350);
lineto (100,500);
rectangle (50, 50, 150, 350);
circle(100,100,40);
circle(100,200,40);
circle(100,300,40);
lockdrawing;
repeat
floodfill(100, 200, clWhite);
circle(100,200,40);
sleep(555);
floodfill(100, 200, clYellow);
circle(100,200,40);
sleep(555);
redraw;
until b;
end.