Нарисуйте дерево

uses
    graphABC;
begin
 ellipse(300,50,400,200);
 line(350,110,350,300)
end.

uses graphABC;
var i,j: integer;
 
begin
 setwindowsize(400,500);
 setbrushcolor(clgreen);
 rectangle(0,400,400,500);
 setbrushcolor(clblue);
 rectangle(0,0,400,400);
 setbrushcolor(clyellow);
 circle(350,50,30);
 setpenwidth(8);
 setpencolor(clbrown);
 line(150,300,200,400);
 line(250,300,200,380);
 setpenwidth(1);
 setpencolor(clblack);
 setbrushcolor(clbrown);
 rectangle(190,300,210,450);
 setbrushcolor(clgreen);
 ellipse(100,50,300,350);
 circle(50,370,50);
 circle(70,400,30);
 circle(25,410,20);
 setpencolor(cllime);
 for i:=1 to 100 do
     circle(random(120)+140,random(250)+80,5);
 for i:=1 to 100 do
     circle(random(180)+110,random(150)+150,5);
 setpencolor(clyellow);
 setbrushcolor(clred);
 for i:=1 to 30 do
     circle(random(120)+140,random(250)+80,10);
circle(250,450,10);
circle(290,420,10);
end.