Составьте программу, которая выполняет чертёж

Uses GraphABC;
 
Const
  n = 20;
  w = 16;
  h = 10;
  
Begin
  Window.Width := w * n;
  Window.Height := h * n;
  Brush.Color := clTransparent;
  Pen.Color := clSilver;
  For var i := 1 to Pred(w) do
    Line(i * n, 0, i * n, Window.Height);
  For var i := 1 to Pred(h) do
    Line(0, i * n, Window.Width, i * n);
  Pen.Width := 2;
  Pen.Color := clGray;
  Pen.Style := psDot;
  Line(0, 5 * n, Window.Width, 5 * n);
  Line(4 * n, n, 4 * n, 9 * n);
  Line(8 * n, n, 8 * n, 9 * n);
  Line(12 * n, n, 12 * n, 9 * n);
  Rectangle(n, 2 * n, 15 * n, 8 * n);
  Pen.Width := 3;
  Pen.Color := ClBlack;
  Pen.Style := psSolid;
  Arc(4 * n, 5 * n, 3 * n, 90, 270);
  Arc(12 * n, 5 * n, 3 * n, -90, 90);
  Line(4 * n, 2 * n, 12 * n, 2 * n);
  Line(4 * n, 8 * n, 12 * n, 8 * n);
  Circle(4 * n, 5 * n, n);
  Circle(12 * n, 5 * n, n);
End.