Question

Pascal ABC.Помогите!
Нужно нарисовать бабочку.

Answer 1

uses GraphABC;
var  x,y: integer;
begin
pen.Color:=clRed;
Brush.Color :=clRed;
circle(170,200,30);
circle(230,200,30);
circle(150,150,50);
circle(250,150,50);
Brush.Color :=clGold;
Ellipse(190,110,210,230);
Brush.Color :=clDarkGreen;
Line(200,110,180,80);
Line(200,110,220,80);
circle(200,110,10); 
end.