uses graph,crt;
var gd,gm,x,y,side:integer;
begin
initgraph(gd,gm,'c:\bp\bgi');
outtextxy(30,0,'Введите сторону квадрата.');
readln(side);
clearviewport;
outtextxy(30,0,'Введите координаты центра квадрата(X и Y через ENTER)');
readln(x);
readln(y);
clearviewport;
rectangle(x-side,y - side ,x + side , y + side );
repeat;
until keypressed;
closegraph;
end.