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

uses graph;

var vga,vgahi:integer;

procedure carre(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>0 then
  begin
   carre(x-a/2,y-a/2,a/2,n-1);
   carre(x-a/2,y+a/2,a/2,n-1);
   carre(x+a/2,y-a/2,a/2,n-1);
   carre(x+a/2,y+a/2,a/2,n-1);
   end;
end;

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