const
  MOUVEMENTS_TOUR: array[0..63] of Int64 = ({$I tour.inc});

procedure Affiche(const damier: Int64);
var
  x, y: integer;
begin
  WriteLn('+   abcdefgh   +'#13#10);
  
  for y := 7 downto 0 do
  begin
    Write(Succ(y), '   ');
    for x := 0 to 7 do
      Write(Ord((damier and (int64(1) shl (8 * y + x))) <> 0));
    WriteLn('   ', Succ(y));
  end;
  
  WriteLn(#13#10'+   abcdefgh   +');
end;

const
  A2 = 8;
  
begin
  Affiche(
  MOUVEMENTS_TOUR[A2]
  );
end.

{
  +   abcdefgh   +

  8   00000001   8
  7   00000001   7
  6   00000001   6
  5   00000001   5
  4   00000001   4
  3   00000001   3
  2   11111110   2
  1   00000001   1

  +   abcdefgh   +
}