Нарисовать Веточку рябины с Ягодами в вазе с водой

uses graphABC;
var i: integer;
 
procedure Grozd(x,y: integer);
var j: byte;
begin
setpenwidth(2);
setpencolor(clmaroon);
setbrushcolor(clred);
for j:=1 to 15 do
    circle(random(100)+x,random(70)+y,10);
end;
 
procedure List(x,y: integer);
var i: byte;
begin
setpenwidth(3);
setpencolor(clgreen);
setbrushcolor(cllime);
for i:=1 to 10 do
    circle(random(120)+x,random(110)+y,20);
end;
 
procedure Vase;
begin
setpenwidth(5);
setpencolor(clblue);
arc(-70,300,300,-20,20);
arc(570,300,300,160,-160);
line(210,195,290,195);
line(210,403,290,403);
line(230,303,270,303);
floodfill(250,370,claqua);
end;
 
procedure Vetka;
begin
setpenwidth(5);
setpencolor(clbrown);
arc(-50,300,300,-20,60);
arc(440,220,200,110,-165);
arc(310,220,70,20,-165);
end;
 
begin
setwindowsize(500,500);
Vase;
Vetka;
List(70,30);
Grozd(60,40);
List(300,140);
Grozd(350,200);
List(230,20);
Grozd(350,20);
end.