Нарисовать елку

Uses GraphABC;
 
Const a=150; {äëèíà ñòîðîíû òðåóãîëüíèêà}
      b=100;
      N=3;
      var x,y:integer;
    k:integer;
procedure Triangle(x,y,h:integer;style,col1,col2:integer);
begin
   MoveTo(x,y);
 line(x+a,y+b,x-a,y+b);
  line(x-a,y+b,x,y);
  line(x,y,x+a,y+b);
   SetBrushColor(clRed);
  Triangle(300,150,a,1,col1,col2);       {òðåóãîëüíèê}
 
end;
 
 
 {------------ Ïðîöåäóðà ðèñîâàíèÿ `¸ëêà ------------}
Procedure Fir(x,y:integer);
var i,color:integer;
begin
  For i:=1 to N do
    begin
      color:=clRed;
     Triangle(x,y,i,a,b,color);
      x:=x+2*a;
    end;
     end;
 
     begin
  x:=100; y:=200;
  CenterWindow;     // Îêíî ïî öåíòðó ýêðàíà
  SetWindowSize(800,600); // Óñòàíàâëèâàåì ðàçìåðû îêíà â òî÷êàõ
  for k:=1 to 3 do
     begin
      Fir(x,y);
 
       y:=y+a+20
 
  end;
     end.

Uses GraphABC;
Const a=150; {длина стороны треугольника}
      b=100;
      N=3;
var x,y:integer;
procedure Triangle(x,y:integer);
begin
setpencolor(clGreen);
line(x,y,x-a,y+b);
line(x-a,y+b,x+a,y+b);
line(x+a,y+b,x,y);
floodfill(x,y+b div 2,clGreen);
end;
 {------------ Процедура рисования `ёлка ------------}
Procedure Fir(x,y:integer);
var i:integer;
begin
For i:=1 to N do
Triangle(x,y+(i-1)*b);
setbrushcolor(clBrown);
rectangle(x-20,y+N*b,x+20,y+N*b+60)
end;
begin
CenterWindow;     // Окно по центру экрана
SetWindowSize(800,600); // Устанавливаем размеры окна в точках
Fir(windowwidth div 2,120);
end.