uses GraphABC;
var
x : integer := 50; // x координата верхнего левого угла
y : integer := 50; // y координата верхнего левого угла
d : integer := 100; // длина прямоугольника
a : integer := 100; // ширина прямоугольника
points : array of point := new Point[5];
begin
SetPenColor(clBlack);
SetBrushColor(clRed);
Line(x, y+d, x, y);
points[0] := (x, y);
points[1] := (x+a, y);
points[2] := (round(a/4)*3+x, round(d/4)+y);
points[3] := (x+a, round(d/2)+y);
points[4] := (x, round(d/2)+y);
Polygon(points);
end.