{************************************************
                 Hugo Eti‚vant
      http://cyberzoide.developpez.com
      
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

uses graph;

procedure carres(x,y,a:real; n:byte);
begin
rectangle(round(x-a/2),round(y-a/2),round(x+a/2),round(y+a/2));
if n>1 then
   begin
   carres(x,y-3*a/2,a/2,n-1);
   carres(x,y+3*a/2,a/2,n-1);
   carres(x-3*a/2,y,a/2,n-1);
   carres(x+3*a/2,y,a/2,n-1);
   end;
end;

var vga,vgahi:integer;

BEGIN
initgraph(vga,vgahi,'c:\bp\bgi');
carres(getmaxx/2,getmaxy/2,75,4);
readln;
END.