Используя стандартные процедуры и функции модуля GraphABC составить программу изображения рисунка

uses graphABC;
const c:array[1..5] of integer=(clYellow,clRed,clLime,clMoneyGreen,clMaroon);
var x,y,x1,y1,r1,r2,r3,i:integer;
    u:real;
begin
setwindowsize(400,400);
centerwindow;
x:=200;
y:=160;
r1:=80;
setpencolor(clNavy);
setbrushcolor(clNavy);
circle(x,y,r1);
r2:=40;
r3:=r1+r2;
u:=pi/2;
for i:=1 to 5 do
 begin
  x1:=x+round(r3*cos(u));
  y1:=y-round(r3*sin(u));
  setpencolor(c[i]);
  setbrushcolor(c[i]);
  circle(x1,y1,r2);
  u:=u-2*pi/5;
 end;
setpencolor(clLime);
setbrushcolor(clLime);
rectangle(x-15,y+r1,x+15,380);
setpencolor(clYellow);
setbrushcolor(clYellow);
line(x-15,360,40,380);
line(40,380,20,y+r1+20);
line(20,y+r1+20,x-15,360);
floodfill(40,370,clYellow);
line(x+15,375,380,y+r1+15);
line(380,y+r1+15,360,365);
line(360,365,x+15,375);
floodfill(360,350,clYellow);
end.

uses GraphABC;
    begin
 
   
     SetBrushcolor(clNavy); //большой круг, темно-синий 
     Circle(325,150,60);
     
     SetBrushcolor(clYellow); //лепесток 1, желтый
     Circle(325,65, 25);
     SetBrushcolor(clOrange); //лепесток 2, оранжевый
     Circle(406,125,25);
     SetBrushcolor(clGreen); //лепесток 3, зеленый
     Circle(393,200,25);
     SetBrushcolor(clKhaki); //лепесток 4, хаки
     Circle(256,200,25);
     SetBrushcolor(clRed); //лепесток 5, красный
     Circle(245,125,25);
     
     SetBrushcolor(clGreen); //ствол,зеленый
     Rectangle(310,350,340,210);
     
     SetBrushcolor(clYellow); //лист левый, желтый 
     Line(310, 300, 120, 250); //линия 1
     Line(310, 300, 180, 350); //линия 2
     Line(180, 350, 120, 250); //линия 3
     
     SetBrushcolor(clYellow); //лист  правый, желтый
     Line(340, 300, 500, 250); //линия 1
     Line(340, 300, 450, 350); //линия 2
     Line(450, 350, 500, 250); //линия 3
     
  end.

SetBrushcolor(clYellow); //лист левый, желтый
     Line(310, 300, 120, 250); //линия 1
     Line(310, 300, 180, 350); //линия 2
     Line(180, 350, 120, 250); //линия 3
     Floodfill(180,340,clYellow);
     SetBrushcolor(clYellow); //лист  правый, желтый
     Line(340, 300, 500, 250); //линия 1
     Line(340, 300, 450, 350); //линия 2
     Line(450, 350, 500, 250); //линия 3
     Floodfill(450,340,clYellow);