sorry,我没时间了，这程序好像有错，你看看吧
var
  a:array[-2..10,-2..10]of boolean;
  i,j,k,l,n:integer;
procedure dp(i,j:integer);
begin
  if (i=8)and(j=8) then begin inc(n); exit; end;
  if a[i-2,j-1] then begin a[i-2,j-1]:=false; dp(i-2,j-1); a[i-2,j-1]:=true; end;
  if a[i-2,j+1] then begin a[i-2,j+1]:=false; dp(i-2,j+1); a[i-2,j+1]:=true; end;
  if a[i-1,j-2] then begin a[i-1,j-2]:=false; dp(i-1,j-2); a[i-1,j-2]:=true; end;
  if a[i+1,j-2] then begin a[i+1,j-2]:=false; dp(i+1,j-2); a[i+1,j-2]:=true; end;
  if a[i+2,j-1] then begin a[i+2,j-1]:=false; dp(i+2,j-1); a[i+2,j-1]:=true; end;
  if a[i+2,j+1] then begin a[i+2,j+1]:=false; dp(i+2,j+1); a[i+2,j+1]:=true; end;
  if a[i+1,j+2] then begin a[i+1,j+2]:=false; dp(i+1,j+2); a[i+1,j+2]:=true; end;
  if a[i-1,j+2] then begin a[i-1,j+2]:=false; dp(i-1,j+2); a[i-1,j+2]:=true; end;
end;
begin
  fillchar(a,sizeof(a),false);
  n:=0;
  for i:=1 to 8 do for j:=1 to 8 do a[i,j]:=true;
  dp(1,1);
  writeln(n);
end.