В паскале нужно нарисовать дерево елочка дерево.Все должно быть в одном окне

uses  GraphABC;  begin  SetPenColor(ClGreen);  Line(100,100,120,140);  Line(100,100,80,140);  Line(80,140,120,140);  Line(100,140,70,190);  Line(100,140,130,190);  Line(70,190,130,190);  Line(100,190,50,250);  Line(100,190,150,250);  Line(50,250,150,250);  FloodFill(100,160,clGreen);  FloodFill(100,130,clGreen);  FloodFill(100,200,clGreen);  Line(300,100,320,140);  Line(300,100,280,140);  Line(280,140,320,140);  Line(300,140,270,190);  Line(300,140,330,190);  Line(270,190,330,190);  Line(300,190,250,250);  Line(300,190,350,250);  Line(250,250,350,250);  FloodFill(300,160,clGreen);  FloodFill(300,130,clGreen);  FloodFill(300,200,clGreen);  Line(500,100,520,140);  Line(500,100,480,140);  Line(480,140,520,140);  Line(500,140,470,190);  Line(500,140,530,190);  Line(470,190,530,190);  Line(500,190,450,250);  Line(500,190,550,250);  Line(450,250,550,250);  FloodFill(500,160,clGreen);  FloodFill(500,130,clGreen);  FloodFill(500,200,clGreen);  end.