Нарисовать паркет

Uses GraphABC;
Var i, j: integer;
Procedure Poligon(xz, yz: integer);
Const n=5; 
Const r=15;
Var x, y: array[1..n] of integer;
Var i, j: integer;
Var a: real;
Begin
For i:=1 to n do begin
a:=2*pi*i/n+pi/10;
x[i]:=round(xz+r*cos(a));
y[i]:=round(yz+r*sin(a));
End;
MoveTo(x[n], y[n]);
For i:=1 to n do LineTo(x[i], y[i])
End; 
Procedure NUgolnik(i, j: integer);
Var x, y: integer;
Begin
x:=i*24;
y:=j*17;
Poligon(x,y); 
End;
End.

uses GraphABC;
procedure Poligon(xc,yc,r:integer);
const n=6;
var x,y,i:integer;
    a: real;
begin
a:=-pi/2;
For i:=1 to n do
 begin
  x:=xc+round(r*cos(a));
  y:=yc-round(r*sin(a));
  if i=1 then moveto(x,y)
  else lineto(x,y);
  a:=a+2*pi/5;
 end;
end;
var x,y,r:integer;
begin
setwindowsize(500,500);
centerwindow;
r:=15;
y:=r;
while  y<windowheight do
 begin
  x:=r;
  while x<windowwidth do
   begin
    Poligon(x,y,r);
    x:=x+2*r-1;
   end;
  y:=y+2*r-1;
 end;
end.