Изобразим требуемую фигуру. Из условия задачи нам известны координаты центра окружности (x,y) и ее радиус R. Для построения квадрата нужно знать координаты точек (x1,y1) и (x2,y2). Координаты этих точек вычислить просто: x1=x-R, y1=y-R, x2=x+R, y2=y+R. Теперь для построения квадрата достаточно воспользоваться процедурой Rectangle.

Приведем текст программы:

Program Problem46_1; 
Uses Graph;
Var   R,x,y,gm,gd:Integer;
Begin
  WriteLn('Задайте радиус окружности:');
  ReadLn(R);
  WriteLn('Укажите координаты центра:');
  ReadLn(x,y);
  gm:=detect;
  InitGraph(gm,gd,'C:\BP\BGI');
  SetColor(Blue); {Цвет изображения.}
  Circle(x,y,R);{Построение окружности.}
  Rectangle(x-R,y-R,x+R,y+R);{Построение квадрата.}
  ReadLn;
  CloseGraph;
End.

Текст этой программы можно взять здесь.