Исполнитель Чертёжник, PascalABC.NET 3.2
uses Drawman;
procedure Square(side: integer);
begin
PenDown;
OnVector(side, 0);
OnVector(0, side);
OnVector(-side, 0);
OnVector(0, -side);
PenUp;
end;
begin
Field(15, 9);
ToPoint(1, 1);
Square(3);
OnVector(2, 2);
Square(3);
OnVector(2, 2);
Square(3);
OnVector(2, -2);
Square(3);
OnVector(2, -2);
Square(3);
end.
