Нарисовать дорожный знак

uses graphABC;
begin
setfontsize(14);
textout(120,1,'ÇÎÍÀ');
setwindowsize(300,400);
setpencolor(clwhite);
setbrushcolor(clred);
circle(150,150,120);
setpencolor(clwhite);
setbrushcolor(clblue);
circle(150,150,100);
setpencolor(clwhite);
setbrushcolor(clred);
rectangle(100,20,200,220);
setbrushcolor(clwhite);
setfontsize(14);
textout(100,300,'7.00-19.00');
end.

uses graphABC;
begin
setwindowsize(300,400);
setfontsize(14);
textout(120,1,'ЗОНА');
textout(100,300,'7.00-19.00');
setpencolor(clRed);
setbrushcolor(clred);
circle(150,160,120);
//нарисуем середину процедурами Chord
setpencolor(clwhite);
setbrushcolor(clwhite);
chord(150,160,100,142,308);
chord(150,160,100,320,130);
setpencolor(clblue);
setbrushcolor(clblue);
chord(150,160,95,145,305);
chord(150,160,95,323,127);
end.