Фрактальная графика дерево

uses GraphABC;
const
    max = 3;
  
procedure LineTo1(x, y : Integer; l, u : Real);
begin
    Line(x, y, Round(x + l * cos(u)), Round(y - l * sin(u)));
end;
 
procedure Draw(x, y : Integer; l, u : real);
begin   
    if l > max then
    begin
        l := l * 0.7;
        LineTo1(x, y, l, u);
        x := Round(x + l * cos(u));
        y := Round(y - l * sin(u));
        Draw(x, y, l, u + pi / 4); {Угол поворота 1}
        Draw(x, y, l, u - pi / 6); {Угол поворота 2}
    end;
end;
 
begin   
   SetWindowCaption('Фракталы: Дерево Пифагора');
   SetWindowSize(730,500);
   ClearWindow;
   Draw(320, 460, 200, pi/2)   
end.

uses GraphWPF;
const t=pi/6;kl=0.835;
procedure tree(n:integer;x,y,l,a:real);
begin
  if n=0 then exit;
  var(x1,y1):=(x+sin(a)*l,y-cos(a)*l);
  line(x,y,x1,y1,rgb(0,96,0));
  tree(n-1,x1,y1,l*kl,a+t);
  tree(n-1,x1,y1,l*kl,a-t);
end;
begin
  tree(11,window.Center.X,window.Center.Y+200,100,0);
end.