Question

напишите пожалуйста программу в паскале авс​

Answer 1

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.