Нарисовать шахматный стол

uses
  graphABC;
const
  n=8; // количество клеток
  h=50; // размер клетки
  x=500; // размер экрана
  l=20; // от каемки до клеток
var
  i,j: integer;
begin
  setWindowWidth(x);
  setWindowHeight(x);
  rectangle(h-l,h-l,h*(n+1)+l,h*(n+1)+l);
  for i:=0 to 8 do
  begin
    line(h,h+i*h,h+n*h,h+i*h);
    line(h+i*h,h,h+i*h,h+n*h);
  end;
  for i:=1 to n do
    for j:=1 to n do
      if odd(i+j) then
        floodFill(i*h+1,j*h+1,clBlack);
end.

uses
  graphABC;
var
  i,j: integer;
begin
  setWindowWidth(500);
  setWindowHeight(500);
  rectangle(30,30,470,470);
  for i:=0 to 8 do
  begin
    line(50,50+i*50,50+8*50,50+i*50);
    line(50+i*50,50,50+i*50,50+8*50);
  end;
  for i:=1 to 8 do
    for j:=1 to 8 do
      if odd(i+j) then
        floodFill(i*50+1,j*50+1,clBlack);
end.

uses
  graphABC;
var
  i,j: integer;
begin
  setWindowWidth(500);
  setWindowHeight(500);
  rectangle(30,30,470,470);
  for i:=0 to 8 do
  begin
    line(50,50+i*50,50+8*50,50+i*50);
    line(50+i*50,50,50+i*50,50+8*50);
  end;
  for i:=1 to 8 do
    for j:=1 to 8 do
      if odd(i+j) then
        floodFill(i*50+1,j*50+1,clBlack);
  for i:=0 to 7 do
  begin
    TextOut(70+i*50,453,chr(97+i));
    TextOut(37,70+i*50,chr(56-i));
  end;
end.

uses
  graphABC;
var
  i,j: integer;
begin
  setWindowWidth(500);
  setWindowHeight(500);
  
  rectangle(30,30,470,470);
  rectangle(50,50,450,450);
 
  for i:=0 to 7 do
  begin
    TextOut(70+i*50,453,chr(97+i));
    TextOut(37,70+i*50,chr(56-i));
  end;
  
  setBrushColor(clBlack);
  for i:=1 to 8 do
    for j:=1 to 8 do
      if odd(i+j) then
        fillRect(i*50+50,j*50+50,i*50,j*50);
end.