Графика в паскале

[Карина 1578]

Ребят,как сделать этот рисунок с помощью циклов,а не с помощью рисования прямоугольничков??

program grafika;
uses graphabc;
var x1,x2,y1,y2:integer;
begin
line(60,60,60,210);
line(60,60,210,60);
line(60,210,210,210);
line(210,60,210,210);
line(90,60,90,210);
line(120,60,120,210);
line(150,60,150,210);
line(180,60,180,210);
line(60,90,210,90);
line(60,120,210,120);
line(60,150,210,150);
line(60,180,210,180);
FloodFill(70,80,clBlack);
FloodFill(100,110,clBlack);
FloodFill(130,140,clBlack);
FloodFill(160,170,clBlack);
FloodFill(190,200,clBlack);
FloodFill(130,70,clBlack);
FloodFill(190,80,clBlack);
FloodFill(160,100,clBlack);
FloodFill(70,130,clBlack);
FloodFill(190,140,clBlack);
FloodFill(100,160,clBlack);
FloodFill(70,190,clBlack);
FloodFill(130,190,clBlack);
readln;
end.

[Serge_Bliznykov]

так пойдёт?

program grafika;
uses graphabc;
const
  OneFSize = 30;
  N = 5;
  x0 = 60;
  y0 = 60;
var i, j :integer;
begin
  SetBrushStyle(bsClear);
  for i:=0 to N-1 do
    for j:=0 to N-1 do begin
       Rectangle(x0+i*OneFSize,y0+j*OneFSize, x0+(i+1)*OneFSize, y0+(j+1)*OneFSize);
       if  odd(i) = odd(j)   then FloodFill(x0+i*OneFSize+1,y0+j*OneFSize+1,clBlack);
    end;
end.