Pascal ABC. Помогите!

Нужно нарисовать бабочку.

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.