Закрасить фигуры

{Made by DSBM}
program DSBM;
uses graph, crt;
var dr, md: integer;
    x, y: byte;
begin
clrscr;
x:=succ(0);
y:=succ(0);
window(x, y, x+20, y+20);
clrscr;
gotoxy(6,2);
dr:=0;
md:=0;
initgraph(dr, md, '');
setcolor(green);
{Подключил модуль Graph.TPU}
line(100,50,50,100);
line(50,100,150,100);
line(150,100,100,50);
{Нарисовал первый треугольник Ёлочки}
line(100,100,50,150);
line(50,150,150,150);
line(150,150,100,100);
{Нарисовал второй треугольник Ёлочки}
line(100,150,50,200);
line(50,200,150,200);
line(150,200,100,150);
{Нарисовал третий треугольник Ёлочки}
readkey;
end.

uses graph, crt;
var dr, md: integer;
    x, y: byte;
begin
clrscr;
x:=succ(0);
y:=succ(0);
window(x, y, x+20, y+20);
clrscr;
gotoxy(6,2);
dr:=0;
md:=0;
initgraph(dr, md, '');
setcolor(green); 
SetFillStyle(1,green);{устанавливаем стиль закраски}
line(100,50,50,100);
line(50,100,150,100);
line(150,100,100,50);
FloodFill(52,99,green);{закрашиваем}
line(100,100,50,150);
line(50,150,150,150);
line(150,150,100,100);
FloodFill(52,149,green);{закрашиваем}
line(100,150,50,200);
line(50,200,150,200);
line(150,200,100,150);
FloodFill(52,199,green);{закрашиваем}
Readln;readkey;
end.

uses graph;
var dr, md: integer;
    x, y: byte;
begin
dr:=0;
md:=0;
initgraph(dr, md, '');
{Подключил модуль Graph.TPU}
setcolor(green);
setfillstyle(1,green);
{Установил цвет линий и заливки}
line(50,100,150,100);
line(50,100,100,50);
line(100,50,150,100);
floodfill(100,75,green);
{Нарисовал первый треугольник Ёлочки}
line(50,150,150,150);
line(50,150,100,100);
line(100,100,150,150);
floodfill(100,125,green);
{Нарисовал второй треугольник Ёлочки}
line(50,200,150,200);
line(50,200,100,150);
line(100,150,150,200);
floodfill(100,175,green);
{Нарисовал третий треугольник Ёлочки}
readln
end.