Нарисуйте на экране диагональ экрана, состоящую из 15 разноцветных правильных заполненных восьмиугольников

uses graph;
const n=15;
var x,y,r,dx,dy,i,j:integer;
    u:real;
    p:array[1..9] of pointtype;
begin
initgraph(x,y,'');
r:=getmaxX div 30;
x:=r;
dx:=2*r;
y:=r;
dy:=3*r div 2;
for i:=1 to n do
 begin
  u:=pi/2;
  for j:=1 to 9 do
   begin
    p[j].x:=x+round(r*cos(u));
    p[j].y:=y-round(r*sin(u));
    u:=u+pi/4;
   end;
  setcolor(i);
  setfillstyle(1,i);
  fillpoly(9,p);
  x:=x+dx;
  y:=y+dy;
 end;
readln
end.

uses graph;
const n=15;
var x,y,r,dx,dy,i,j:integer;
    u:real;
    p:array[1..9] of pointtype;
begin
initgraph(x,y,'');
r:=getmaxX div 24;
x:=r;
dx:=2*r-11;
y:=r;
dy:=3*r div 2-10;
for i:=1 to n do
 begin
  u:=pi/8;
  for j:=1 to 9 do
   begin
    p[j].x:=x+round(r*cos(u));
    p[j].y:=y-round(r*sin(u));
    u:=u+pi/4;
   end;
  setcolor(i);
  setfillstyle(1,i);
  fillpoly(9,p);
  x:=x+dx;
  y:=y+dy;
 end;
readln
end.

uses graph;
const n=15;
var x,y,r,h,dx,dy,i,j:integer;
    u:real;
    p:array[1..9] of pointtype;
begin
initgraph(x,y,'');
r:=getmaxX div 24;
h:=round(r*cos(pi/8));
x:=h;
dx:=getmaxX div 16;
y:=h;
dy:=getmaxY div 16;
for i:=1 to n do
 begin
  u:=pi/8;
  for j:=1 to 9 do
   begin
    p[j].x:=x+round(r*cos(u));
    p[j].y:=y-round(r*sin(u));
    u:=u+pi/4;
   end;
  setcolor(i);
  setfillstyle(1,i);
  fillpoly(9,p);
  x:=x+dx;
  y:=y+dy;
 end;
readln
end.

uses graph;
const n=15;
var x,y,r,h,dx,dy,i,j:integer;
    u:real;
    p:array[1..9] of pointtype;
procedure diagonal;
begin
initgraph(x,y,'');
r:=getmaxX div 24;
h:=round(r*cos(pi/8));
x:=h;
dx:=getmaxX div 16;
y:=h;
dy:=getmaxY div 16;
for i:=1 to n do
 begin
  u:=pi/8;
  for j:=1 to 9 do
   begin
    p[j].x:=x+round(r*cos(u));
    p[j].y:=y-round(r*sin(u));
    u:=u+pi/4;
   end;
  setcolor(i);
  setfillstyle(1,i);
  fillpoly(9,p);
  x:=x+dx;
  y:=y+dy;
 end;
end;
begin
diagonal;
readln
end.