Uses Crt, Dos, Graph;

Type
  CoordsXY=array [1..7] of PointType; {Массив для хранения координат вершин шестиугольника}
  CoordsTr=array [1..3] of PointType; {Массив для хранения координат вершин треугольника}

Var
  center: PointType; {Центр шестиугольника}
  top   : CoordsXY;  {Координаты вершин шестиугольника}
  tr    : CoordsTr;  {Координаты вершин треугольника}
  i     : integer;   {Счетчик для циклов}
  R     : integer;   {Радиус}
  LineN : integer;   {Количество линий, отрисованных в КАЖДОМ треугольнике}
  N     : integer;   {Максимальное количество случайный линий в треугольнике}
  x1,y1 : real;      {Координаты начальной точки линии}
  x2,y2 : real;      {Координаты конечной точки линии}

{Инициализация графики}
Procedure Init;
var
  Driver, Mode, ErrorCode: smallint;
begin
  Driver:=detect;
  InitGraph(Driver,Mode,'');
  ErrorCode:=GraphResult;
  if ErrorCode<>grOK then
  begin
    Writeln(GraphErrorMsg(ErrorCode));
    Halt(1);
  end;
end;

{Ввод с клавиатуры ряда параметров}
Procedure EnterParametrs;
Begin
  clrscr;
  write('Введите радиус: ');
  readln(r);
  writeln;
  write('Максимальное кол-во линий в треугольнике: ');
  readln(N);
End;

{Отрисовка шестиугольника}
Procedure DrawHexagon;
Begin
  {Сначала найдем центр рабочей области}
  center.X:=GetMaxX div 2;
  center.Y:=GetMaxY div 2;
  {Потом определяем вершины шестиугольника}
  for i:=1 to 6 do
  begin
    top[i].X:=center.X+trunc(R*cos(((60*pred(i)+90)mod 360)*pi/180));
    top[i].Y:=center.Y-trunc(R*sin(((60*pred(i)+90)mod 360)*pi/180));
  end;
  top[7]:=top[1];
  {Рисуем сам шестиугольник}
  setcolor(random(14)+1);
  for i:=1 to 6 do
  begin
    {вершина треугольника(центр шестиугольника)}
    tr[1]:=center;
    {вторая вершина}
    tr[2]:=top[i];
    {третья вершина}
    tr[3]:=top[i+1];
    {заливка треугольников цветом и их отрисовка}
    setfillstyle(solidfill,random(14)+1);
    fillpoly(3,tr);
  end;
End;

{Поиск начальной координаты линии}
Procedure FindXYStart(a,b:real);
Begin
End;

{Поиск конечной координаты линии}
Procedure FindXYEnd(a,b:real);
Begin
end;

{Отрисовка  N линий в треугольнике}
Procedure DrawLines;
Begin
  LineN:=random(N)+1;
  for i:=1 to lineN do
  begin
    x1:=0;
    y1:=0;
    x2:=0;
    y2:=0;
    FindXY(x1,y1);
    FindXY(x2,y2);
    SetColor(Blink);
    Line(x1,y1,x2,y2);
  end;
End;

Begin
  {Вводим параметры с клавиатуры}
  EnterParametrs;
  {Запускаем графический режим и работаем с ним}
  Init;
  DrawHexagon;
  DrawLines;
  {После работы графического режима, отключаем его}
  readkey;
  CloseGraph;
End.