Uses Graph, CRT;
Var
 X0,Y0,X1,Y1,X2,Y2,R:Word;
 i,j:Byte;
Begin
 InitGraph(..., ...); {Параметры процедуры инициализации графики задайте сами}
 R:=GetMaxY div 2;
 X0:=GetMaxX div 2;
 Y0:=GetMaxY div 2;
 MoveTo(X0,Y0-R);
 For i:=0 to 11 do
  begin
   X1:=X0+Round(R*Sin(i*Pi/6));
   Y1:=Y0-Round(R*Cos(i*Pi/6));
   For j:=i+1 to 12 do
    begin
     X2:=X0+Round(R*Sin(j*Pi/6));
     Y2:=Y0-Round(R*Cos(j*Pi/6));
     Line(X1,Y1,X2,Y2);
    end;
  end;
 ReadKey;
 CloseGraph;
End.