program HorizontalRectangle;

uses Graph;

var
gd,gm: smallint;

begin
gd := Detect;
InitGraph(gd, gm, '');

// Нарисовать горизонтальный прямоугольник
Line(100, 100, 300, 100); // верхняя линия
Line(100, 100, 100, 200); // левая линия
Line(300, 100, 300, 200); // правая линия
Line(100, 200, 300, 200); // нижняя линия

ReadLn;
CloseGraph;
end.