program Square;
uses graph, wincrt;
var gd,gm: smallint;
    x,y,n,i: integer;
procedure fractal(x,y,side,n:integer);
var x2,y2:integer;
begin
  setcolor(green);
  x2:=x+side;
  y2:=y+side;
  if n=1 then
   begin
   Rectangle(x,y,x2,y2);
   end;
  if n>1 then
    begin
     fractal(x,y,side div 3,n-1);
     fractal(x+(x2-x) div 3,y,side div 3,n-1);
     fractal(x+2*(x2-x) div 3,y,side div 3,n-1);
     fractal(x,y+(y2-y) div 3,side div 3,n-1);
     fractal(x+2*(x2-x) div 3,y+(y2-y) div 3,side div 3,n-1);
     fractal(x,y+2*(y2-y) div 3,side div 3,n-1);
     fractal(x+(x2-x) div 3,y+2*(y2-y) div 3,side div 3,n-1);
     fractal(x+2*(x2-x) div 3,y+2*(y2-y) div 3,side div 3,n-1);
    end;
end;
begin
  gd := detect;
  writeln(gd);
  x:= 1080;
  y := 1920;
  write('n=');readln(n);
  initgraph(gd, gm, 'c:\bp\bgi');
  for i:=1 to n do
  begin
  fractal(460,40,1000,i);
  delay(200);
  end;
  readkey;
end.