Cây noel

(HSG Quảng Trị 08 - 09).  Hãy viết chương trình in ra màn hình cây thông noel có dạng
                                                          * *
                                                    * * * * * *
                                           * * * * * * * * * * * *
                                  * * * * * * * * * * * * * * * * * *
                         * * * * * * * * * * * * * * * * * * * * * * * *
                                                         * * *
                                                         * * *
                                                         * * *
                                                         * * *
                                                         * * *
                                            * * * * * * * * * * * *
                                            * * * * * * * * * * * *
Trong đó tầng 1 và 2 có N dòng, tầng 3 có 2 dòng (N là một số nguyên nhập từ bàn phím).
                                              Lời giải tham khảo
uses crt;
 var
    n,i,j,k: integer;
 begin
      clrscr;
      writeln('Nhap n: '); readln(n);
      writeln;
      k:=2;
      for i:=1 to n do
          begin
               for j:=1 to 40-k do write(' ');
               for j:=1 to k do write('* ');
               k:=k+4;
               writeln;
          end;
      for i:=1 to n do
          begin
               for j:=1 to 37 do write(' ');
               for j:=1 to 3 do write('* ');
               writeln;
          end;
      for i:=1 to 2 do
          begin
               for j:=1 to 37-n*2 do write(' ');
              for j:=1 to n do write('* ');
               for j:=1 to 3+n do write('* ');
               writeln;
          end;
      readln;
 end.