Нарисовать "лес", состоящий из нескольких рядов одинаковых ёлочек - Turbo Pascal

uses graph;
procedure elka(x,y,a:integer);
procedure trg;
begin
setcolor(2);
setfillstyle(1,2);
line(x-a,y+a,x+a,y+a);
line(x-a,y+a,x,y);
line(x,y,x+a,y+a);
floodfill(x,y+a div 2,2);
end;
var i:integer;
begin
for i:=1 to 6 do
 begin
  trg;
  y:=y+2*a div 3;
  a:=a+5
 end;
setcolor(6);
setfillstyle(1,6);
bar(x-a div 8,y+a div 3,x+a div 8,y+a div 3+a div 4);
end;
var x,y,i,j:integer;
begin
initgraph(x,y,'');
y:=1;
while y<getmaxY do
 begin
  x:=1;
  while x<getmaxX do
   begin
    elka(x,y,5);
    x:=x+60;
   end;
  y:=y+90;
 end;
readln
end.