program DSBM;
uses graph, crt;
var dr, md: integer;
    i, j, 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, '');
{Подключил модуль Graph.TPU}
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);
{Нарисовал третий треугольник Ёлочки}
setfillstyle(1,brown);
setcolor(brown);
line(90,201,90,240);
line(90,240,110,240);
line(110,240,110,201);
line(110,201,90,201);
floodfill(100,210,brown);
{Задан ствол дерева}
repeat
setcolor(red);
setfillstyle(1,red);
fillellipse(150,105,4,4);
fillellipse(50,155,4,4);
fillellipse(150,205,4,4);
setcolor(yellow);
setfillstyle(1,black);
fillellipse(50,105,4,4);
fillellipse(150,155,4,4);
fillellipse(50,205,4,4);
delay(700);
{горят красные}
setcolor(red);
setfillstyle(1,black);
fillellipse(150,105,4,4);
fillellipse(50,155,4,4);
fillellipse(150,205,4,4);
setfillstyle(1,yellow);
setcolor(yellow);
fillellipse(50,105,4,4);
fillellipse(150,155,4,4);
fillellipse(50,205,4,4);
delay(700);
{горят желтые}
until keypressed;
end.