Uses System.Drawing, System.Collections.Generic, GraphABC;var a: List := new List();begin a.Add(new Point(144, 2)); a.Add(new Point(1, 55)); a.Add(new Point(273, 55)); Pen.Color := clRed; Pen.Width := 3; Brush.Color := clGreen; GraphABC.FillPolygon(a.ToArray()); GraphABC.DrawPolygon(a.ToArray()); Brush.Color := clLightGreen; GraphABC.DrawRectangle(1, 55, 276, 226); GraphABC.FillRectangle(1, 55, 276, 226); Brush.Color := clYellow; DrawCircle(144, 30, 20); FillCircle(144, 30, 20); GraphABC.FillRectangle(150, 100, 213, 175); GraphABC.FillRectangle(37, 100, 100, 175); GraphABC.DrawRectangle(150, 100, 183, 125); GraphABC.DrawRectangle(183, 100, 213, 175); GraphABC.DrawRectangle(150, 100, 183, 175); GraphABC.DrawRectangle(37, 100, 70, 125); GraphABC.DrawRectangle(70, 100, 100, 175); GraphABC.DrawRectangle(37, 100, 70, 175);end.