uses Graph,CRT;
Const
 Step=50;
var
 Driver, Mode:Integer;
 i,j:ShortInt;
 CenterX,CenterY:Word;
begin
 Driver:=Detect;
 InitGraph(Driver,Mode,' ');
 if GraphResult <> grok then Halt(1);   
 CenterX:=GetMaxX div 2;
 CenterY:=GetMaxY div 2;
 SetLineStyle(DottedLn,0,NormWidth);
 For i:=-3 to 3 do
  Line(CenterX+Step*4,CenterY+Step*i,CenterX-Step*4,CenterY+Step*i);
 For j:=-3 to 3 do
  Line(CenterX+Step*j,CenterY+Step*4,CenterX+Step*j,CenterY-Step*4);
 SetLineStyle(SolidLn,0,ThickWidth);
 Circle(CenterX,CenterY,2*Step);
 Circle(CenterX-3*Step,CenterY,Step);
 Circle(CenterX+3*Step,CenterY,Step);
 Circle(CenterX,CenterY-3*Step,Step);
 Circle(CenterX,CenterY+3*Step,Step);
 Rectangle(CenterX-4*Step,CenterY+4*Step,CenterX+4*Step,CenterY-4*Step);
 Rectangle(CenterX-3*Step,CenterY+3*Step,CenterX+3*Step,CenterY-3*Step);
 Line(CenterX-Step*4,CenterY-Step*4,CenterX+Step*4,CenterY+Step*4);
 Line(CenterX-Step*4,CenterY+Step*4,CenterX+Step*4,CenterY-Step*4);
 ReadKey;
 CloseGraph;
End.