Циклический вывод фигуры.

uses graph;
type mas=array[1..13] of pointtype;
procedure Fig(x,y,w,c:integer;var t:mas);
var d,h:integer;
begin
d:=w div 5;
h:=w;
t[1].x:=x;t[1].y:=y;
t[2].x:=x+d;t[2].y:=y-d;
t[3].x:=x+w-d;t[3].y:=y-d;
t[4].x:=x+w;t[4].y:=y;
t[5].x:=x+w-d;t[5].y:=y+d;
t[6].x:=x+w-d;t[6].y:=y+h-d;
t[7].x:=x+w;t[7].y:=y+h;
t[8].x:=x+w-d;t[8].y:=y+h+d;
t[9].x:=x+d;t[9].y:=y+h+d;
t[10].x:=x;t[10].y:=y+h;
t[11].x:=x+d;t[11].y:=y+h-d;
t[12].x:=x+d;t[12].y:=y+d;
t[13].x:=t[1].x;t[13].y:=t[1].y;
setcolor(c);
line(t[1].x,t[1].y,t[2].x,t[2].y);
line(t[2].x,t[2].y,t[3].x,t[3].y);
line(t[3].x,t[3].y,t[4].x,t[4].y);
line(t[4].x,t[4].y,t[5].x,t[5].y);
line(t[5].x,t[5].y,t[6].x,t[6].y);
line(t[6].x,t[6].y,t[7].x,t[7].y);
line(t[7].x,t[7].y,t[8].x,t[8].y);
line(t[8].x,t[8].y,t[9].x,t[9].y);
line(t[9].x,t[9].y,t[10].x,t[10].y);
line(t[10].x,t[10].y,t[11].x,t[11].y);
line(t[11].x,t[11].y,t[12].x,t[12].y);
line(t[12].x,t[12].y,t[13].x,t[13].y);
setfillstyle(1,c);
floodfill(x+w div 2,y+h div 2,c);
end;
var x,y,d:integer;
    fg:mas;
begin
x:=0;
initgraph(x,y,'');
d:=50;
for y:=0 to getmaxY div d do
for x:=0 to getmaxX div d do
 begin
  if odd(y)and(x mod 2=0) then
  Fig(x*d,y*d,d,12,fg)
  else if(y mod 2=0)and odd(x) then
  Fig(x*d,y*d,d,10,fg);
 end;
readln
end.