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