PascalABC
Объяснение:
uses graphABC;
begin
SetWindowSize(600,500);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
Ellipse(100,430,500,130);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
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.
PascalABC
Объяснение:
uses graphABC;
begin
SetWindowSize(600,500);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
Ellipse(100,430,500,130);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
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.