{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

uses graph;

var vga,vgahi:integer;

procedure croix(x,y,a:real; n:byte);
var h:real;
begin
h:=sqrt(sqr(a)-sqr(a/2));
line(round(x),round(y),round(x),round(y+2*h/3));
line(round(x),round(y),round(x-a/2),round(y-h/3));
line(round(x),round(y),round(x+a/2),round(y-h/3));
if n>1 then
   begin
   croix(x,y+2*h/3,a/2,n-1);
   croix(x-a/2,y-h/3,a/2,n-1);
   croix(x+a/2,y-h/3,a/2,n-1);
   end;
end;

BEGIN
initgraph(vga,vgahi,'c:\bp\bgi');
croix(getmaxx/2,getmaxy/3,200,6);
readln;
END.