Uses Graph, CRT;
Var
 X0,Y0,X,Y,R:Word;
 i:Byte;
Begin
 InitGraph(..., ...); {Параметры инициализации графики задайте сами}
 SetLineStyle(SolidLn,0,ThickWidth);
 R:=GetMaxY div 2;
 X0:=GetMaxX div 2;
 Y0:=GetMaxY div 2;
 X:=X0+Round(R*Sin(Pi/6));
 Y:=Y0-Round(R*Cos(Pi/6));
 MoveTo(X,Y);
 For i:=1 to 6 do
  begin
   X:=X0+Round(R*Sin(Pi/6+i*Pi/3));
   Y:=Y0-Round(R*Cos(Pi/6+i*Pi/3));
   LineTo(X,Y);
  end;
 ReadKey;
 CloseGraph;
End.