ЧТО НУЖНО ВСТАВИТЬ В ЭТОЙ ПРОГРАММЕ uses graphABC; var clMedGray,clNavy,clwhite,clblack:...

Question

ЧТО НУЖНО ВСТАВИТЬ В ЭТОЙ ПРОГРАММЕ uses graphABC; var clMedGray,clNavy,clwhite,clblack: ; begin setwindowsize(600,500); setbrushcolor(clMedGray); Ellipse(320,30,490,400); Ellipse(120,30,300,400); setbrushcolor(clCream); Ellipse(335,40,480,380); Ellipse(140,40,280,380); setbrushcolor(clMedGray); Ellipse(100,430,500,130); setbrushcolor(clNavy); Ellipse(250,240,200,310); Ellipse(350,240,400,310); setbrushcolor(clwhite); Ellipse(240,270,220,300); Ellipse(360,270,380,300); setbrushcolor(clblack); Ellipse(270,330,330,370); line(300,370,300,400); Arc(300,280,120,220,-40); line(50,350,200,350); line(30,340,190,340); line(10,330,180,330); line(410,330,570,330); line(400,340,560,340); line(390,350,550,350); line(240,230,220,150); line(230,230,180,80); line(220,230,180,150); line(360,230,380,150); line(370,230,430,80); line(380,230,430,150); end.

Comments

var clMedGray,clNavy,clwhite,clblack:color;

Answer 1

uses graphABC;

begin

setwindowsize(600,500);

setbrushcolor(clGray);

Ellipse(320,30,490,400);

Ellipse(120,30,300,400);

setbrushcolor(clMintCream);

Ellipse(335,40,480,380);

Ellipse(140,40,280,380);

setbrushcolor(clGray);

Ellipse(100,430,500,130);

setbrushcolor(clNavy);

Ellipse(250,240,200,310);

Ellipse(350,240,400,310);

setbrushcolor(clwhite);

Ellipse(240,270,220,300);

Ellipse(360,270,380,300);

setbrushcolor(clblack);

Ellipse(270,330,330,370);

line(300,370,300,400);

Arc(300,280,120,220,-40);

line(50,350,200,350);

line(30,340,190,340);

line(10,330,180,330);

line(410,330,570,330);

line(400,340,560,340);

line(390,350,550,350);

line(240,230,220,150);

line(230,230,180,80);

line(220,230,180,150);

line(360,230,380,150);

line(370,230,430,80);

line(380,230,430,150);

end.