Нарисовать диагональ экрана, состоящую из 15 шестигранников (Pascal ABC)

uses graphABC;
type point=record
           x,y:integer;
           end;
procedure hex(x,y,r:integer);
var p:array[1..7] of point;
    i:byte;
    u:real;
begin
u:=pi/2;
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;
polygon(p,7);
end;
var n,r,d,i:integer;
begin
MaximizeWindow;
n:=15;
r:=WindowWidth div (2*n);
d:=round(WindowHeight/4/n);
for i:=1 to n do
hex(2*(i-1)*r+r,i*(r+d),r);
end.

uses graphABC;
procedure hex(x,y,r:integer);
var p:array of point;
    u:real;
begin
u:=pi/2;
setlength(p,7);
for var i:=0 to 6 do
 begin
  p[i].x:=x+round(r*cos(u));
  p[i].y:=y-round(r*sin(u));
  u:=u+pi/3;
 end;
polygon(p);
end;
var n,r,d:integer;
begin
MaximizeWindow;
n:=15;
r:=WindowWidth div (2*n);
d:=round(WindowHeight/4/n);
for var i:=1 to n do
hex(2*(i-1)*r+r,windowheight-i*(r+d),r);
end.