program Triangle;
uses graph, wincrt;
var gd,gm: smallint;
    x,y,n,i: integer;
procedure fractal(x1,x2,y,n:integer);
var x3,y3:integer;
begin
  setcolor(green);
  x3:=(x2-x1) div 2+x1;
  y3:=y-(round((x2-x1)*sqrt(3)) div 2);
  if n=1 then
  begin
  line(x1,y,x3,y3);
  line(x3,y3,x2,y);
  line(x1,y,x2,y);
  end;
  if n>1 then
    begin
     fractal(x1,x3,y,n-1);
     fractal(x3,x2,y,n-1);
     fractal((x3-x1) div 2 +x1,(x2-x3) div 2 +x3,(y-y3) div 2+y3,n-1);
    end;
end;
begin
  gd := detect;
  writeln(gd);
  x:= 1080;
  y := 1920;
  write('n=');readln(n);
  initgraph(gd, gm, 'c:\bp\bgi');
  fractal(0,1000,1000,n);
  delay(1000);
  readkey;
end.