Нарисовать графическую структуру – пчелиные соты

uses graph;
procedure hex(x,y,r:integer);
var p:array[1..7] of pointtype;
    i:integer;
    u:real;
begin
u:=pi/2-pi/6;
for i:=1 to 7 do
 begin
  p[i].x:=x+round(r*cos(u));
  p[i].y:=y-round(r*sin(u));
  u:=u+pi/3;
 end;
drawpoly(7,p);
end;
var i,x,y,r,r1:integer;
begin
x:=detect;
initgraph(x,y,'');
r:=20;
r1:=round(r*sqrt(3)/2);
y:=0;
i:=0;
while y<=getmaxY do
 begin
  inc(i);
  if odd(i) then x:=0
  else x:=r+r div 2;
  while x<=getmaxX do
   begin
    hex(x,y,r);
    x:=x+3*r;
   end;
  y:=y+r1;
 end;
readln
end.

uses graph;
procedure hex(x,y,r:integer);//процедура рисования правильного шестиугольника
var p:array[1..7] of pointtype;//массив вершин 7=1
    i:integer;
    u:real;
begin
u:=pi/2-pi/6;//начальный угол, вершина 1
for i:=1 to 7 do
 begin
  p[i].x:=x+round(r*cos(u));//вершины по окружности
  p[i].y:=y-round(r*sin(u));
  u:=u+pi/3; //через 60 градусов
 end;
setfillstyle(1,14);//заливка желтым цветом
fillpoly(7,p);
setcolor(0);//черные границы
drawpoly(7,p);
end;
var i,x,y,r,r1:integer;
begin
x:=detect;
initgraph(x,y,'');
r:=20;//радиус сот, можно изменить
r1:=round(r*sqrt(3)/2);//радиус вписанной окружности
y:=0;//начнем сверху
i:=0;
while y<=getmaxY do
 begin
  inc(i);//считаем строки
  if odd(i) then x:=0//если нечетная начнем с 0
  else x:=r+r div 2;//иначе + 1.5 радиуса
  while x<=getmaxX do//пока не правый край
   begin
    hex(x,y,r); //рисуем
    x:=x+3*r; //перешагиваем на 3 радиуса вправо
   end;
  y:=y+r1;//на внутренний радиус вниз
 end;
readln
end.