{> Cut here. FileName= FRACTRIO.PAS }
program sss;
uses graph;
var xa,ya,xb,yb,xc,yc,driver,mode       :  integer;
    n                                   :  byte;

procedure tria(xa,ya,xb,yb,xc,yc:integer;n:byte);
var xq,yq,xp,yp,xr,yr:integer;
begin
  if n<>0 then begin
               xp:=(xb+xc)div 2;
               yp:=(yb+yc)div 2;
               xq:=(xc+xa)div 2;
               yq:=(yc+ya)div 2;
               xr:=(xa+xb)div 2;
               yr:=(ya+yb)div 2;
               tria(xa,ya,xq,yq,xr,yr,n-1);
               tria(xq,yq,xc,yc,xp,yp,n-1);
               tria(xp,yp,xr,yr,xb,yb,n-1);
                line(xq,yq,xp,yp);
                line(xp,yp,xr,yr);
                line(xq,yq,xr,yr)
               end;
end;

begin
  driver:=detect;
  initgraph(driver,mode,'');
  cleardevice;
  n:=6;
  xa:=0;ya:=0;
  xc:=0;yc:=getmaxy;
  xb:=getmaxx;yb:=getmaxy;
   line(xa,ya,xb,yb);
   line(xb,yb,xc,yc);
   line(xc,yc,xa,ya);
  tria(xa,ya,xb,yb,xc,yc,n);
  readln;
  closegraph;
end.