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

uses wingraph,wincrt;
const a=10;
      sqrt3=sqrt(3);
var
  driver,mode:integer;
  n,i,hn,y,x0,y0,an:integer;
  k:real;
  p:array[1..4] of pointtype;
begin
  randomize;
  writeln('n=');readln(n);
  writeln('k=');readln(k);
//  writeln (k:5:2,n:10);
  if (k<=1) or (k>5.0) or (n<1) or (n>10) then begin
    writeln('Error in ranges: k between (1..5] and n between [1..10]');
    readln;
    exit;
  end;
  driver:=SVGA;
  mode:=m640x480;
  initGraph(driver,mode,'Triangles. A-left, D-right, W-Up, S-down, Esc-exit');
  x0:=GetMaxX div 2;
  y:=GetMaxY-1;
  repeat
    y0:=y;
    clearviewport;
    setfillstyle(SolidFill,random(15)+1);
    for i:=n downto 1 do begin
      an:=round(a*k*i/2);//тут косяк с подобием
      hn:=round(an*sqrt3);
       p[1].X:=x0-an;p[1].Y:=y0;
       p[2].X:=x0;p[2].Y:=y0-hn;
       p[3].X:=x0+an;p[3].Y:=y0;
       p[4]:=p[1];
       FillPoly(4,p);
      y0:=y0-hn;
     end;
   case ReadKey of
    #27:exit;//esc-exit
    'a','A':dec(x0);//left
    's','S':inc(y);//down
    'w','W':dec(y);//up
    'd','D':inc(x0);//right
   end;
  until false;
  closeGraph;
end.