uses DrawMan;
const
  W = 300;
  H = 300;
  Width = 100;
  Height = 100;

procedure Draw(x, y, w, h: integer; n: byte);
begin
  if (w > 1) and (h > 1) then
  begin
    PenUp();
    ToPoint(x, y);
    PenDown();
    OnVector(w, 0);
    OnVector(0, h);
    OnVector(-w, 0);
    OnVector(0, -h);
    
    var w2 := w div 2;
    var h2 := h div 2;
    
    var xm := x - w2;
    var ym := y - w2;
    var xp := x + w;
    var yp := y + w;
    
    if n <> 1 then Draw(xm, ym, w2, h2, 3);
    if n <> 2 then Draw(xp, ym, w2, h2, 4);
    if n <> 3 then Draw(xp, yp, w2, h2, 1);
    if n <> 4 then Draw(xm, yp, w2, h2, 2);
  end;
end;

begin
  Field(W, H);
  
  Draw(W div 2 - Width div 2, H div 2 - Height div 2, Width, Height, 0);
end.