Дерево Пифагора

Program Selim;
uses GraphABC;//модуль для рисования в PascalABC.Net
 
procedure RLine(A, B, A1, B1: real):=Line(Round(A), Round(B), Round(A1), Round(B1)); //Проводим отрезок от точки с координатами (A, B) до точки с координатами (A1, B1)
 
procedure Draw(A, B, C, Angl: real);
begin
  var Ang1 := DegToRad(Angl);
  var EA := A + C * Cos(Ang1);
  var EB := B + C * Sin(Ang1);
 
  var Ang2 := Pi / 4;
 
  var Ang3 := Ang1 - Ang2;
  var EA1 := EA + C * Cos(Ang3);
  var EB1 := EB + C * Sin(Ang3);
 
  var Ang4 := Ang1 + Ang2;
  var EA2 := EA + C * Cos(Ang4);
  var EB2 := EB + C * Sin(Ang4);
 
  RLine(A, B, EA, EB);
  RLine(EA, EB, EA1, EB1);
  RLine(EA, EB, EA2, EB2);
 
  if C > 1 then
  begin
    C := C * 0.7;
    Draw(EA1, EB1, C, RadToDeg(Ang3));
    Draw(EA2, EB2, C, RadToDeg(Ang4));
  end;
end;
 
begin
  FloodFill(1, 1, clWhite); //заливка фона белым цветом
 
  SetPenColor(clBlack); //цвет линий
  LockDrawing(); // блокирует вывод в графическое окно , осуществляя рисование только во внеэкранном буфере
  Draw(500, Window.Height - 10, 70, -90);
  Redraw();
end.