Question

помогите с заданием

Answer 1

Исполнитель Чертёжник, 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.