Pascal/Turbo Pascal - Grafico de Arbol

{mira esto inicia y cierra la unidad gráfica en pascal en esta linea ponlo como lo tengas tu

   initgraph(drive,modo,'c:\tp\bgi'); }

program elarbol;

 uses

    crt, graph;

  var

    x1, y1 : integer;

    drive, modo : integer;

    grafico : boolean;

   procedure iniciografico;

   begin

      grafico := false;

      drive := detect;

      initgraph(drive,modo,'c:\tp\bgi');

      if graphresult <> 0 then

      begin

         writeln('**** Error Grafico Mire Ruta EgaVga ****');

         exit;

      end

    else

       begin

           grafico := true;

           rectangle(1,1,getmaxx - 1,getmaxy - 1);

           rectangle(2,2,getmaxx - 2,getmaxy - 2);

           rectangle(3,3,getmaxx - 3,getmaxy - 3);

       end;

   end;

   procedure cierragrafico;

   begin

       if grafico = true then

       closegraph;

   end;

   procedure arbol;    {sustitulle los numeros por las posiciones del arbol}

   begin

      circle(200,40,8);

     line(192,37,106,92);

     line(208,37,295,92);

     circle(100,100,8);

     line(100,108,100,120);

     circle(100,128,8);

     line(106,136,160,146);

     circle(166,154,8);

     circle(300,100,8);

     line(300,108,300,120);

     circle(300,128,8);

     line(294,136,266,153);

     circle(258,153,8);

     readkey;

   end;

   begin

       iniciografico;

       arbol;

       cierragrafico;

   end.