Senior Pascal developer Ul'ka

uses Drawman;
procedure square;
begin
 PenDown;
 OnVector(0,3);
 OnVector(3,0);
 OnVector(0,-3);
 OnVector(-3,0);
 PenUp;
end;
begin
  Field(14,9);
  ToPoint(1,1);
  Square;
  ToPoint(3,3);
  Square;
  ToPoint(5,5);
  Square;
  ToPoint(7,3);
  Square;
  ToPoint(9,1);
  Square;
end.