uses graph,crt;
var gd,gm,x,x1,y,y1:integer;
begin
initgraph(gd,gm,'c:\bp\bgi');
outtextxy(20,0,'Введите координаты левого верхнего угла прямоугольника (x,y)');
readln(x);
readln(y);
outtextxy(20,10,'Введите координаты правого нижнего угла прямоугольника (x1,y1)');
readln(x1);
readln(y1);
rectangle(x,y,x1,y1);
repeat;
until keypressed;
closegraph;
end.