составьте программу построение изобра..
с использованием процедурай Hexagon

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