Определить, возможно ли попасть из одной клетки в другую одним ходом шахматного коня

const
  NOT_VIEW =  0;  {Ячейка не просматривалась}
  FIRST    = -1;  {Первая ячейка}
  SEARCH   = -2;  {Искомая ячейка}
 
type
  TCell = record
    i: integer;
    j: integer;
  end;
  TDesk = array [1..8,1..8] of integer;
 
var
  f: text;
  s: string[6];
  cellOne: TCell;
  cellTwo: TCell;
  desk   : TDesk;
  amtRun: integer;
 
{Обнуление доски}
procedure FillNullDesk;
var
  i,j: integer;
begin
  for i := 1 to 8 do
    for j := 1 to 8 do
      desk[i][j] := NOT_VIEW;
end;
 
{Сохранение результатов в файл}
procedure SaveToFile(fName: string);
var
  f: text;
begin
  assign(f,fName);
  {$I-}reset(f);{$I+}
  if (IOResult <> 0) then rewrite(f);
  append(f);
  if (amtRun = 0) then
    writeln(f,'NO')
  else
    writeln(f,amtRun);
  close(f);
end;
 
{Вывод доски на экран}
procedure PrintDesk;
var
  i,j: integer;
begin
  write('  ');
  for i := 1 to 8 do
    write(chr(i+96):3);
  writeln;writeln;
  for i := 1 to 8 do begin
    write(i,' ');
    for j := 1 to 8 do
      write(desk[i][j]:3);
    writeln;
  end;
  writeln;
end;
 
{Возможен ли ход из данной ячейки}
function IsGoodRun(x,y: integer): boolean;
begin
  IsGoodRun := false;
  if (x <> cellOne.i) and (y <> cellOne.j) and
     ((desk[x][y] = NOT_VIEW) or (desk[x][y] = SEARCH)) then begin
    if (((cellOne.i mod 2) = 1) and ((cellOne.j mod 2) = 1)) or
       (((cellOne.i mod 2) = 0) and ((cellOne.j mod 2) = 0)) then begin
      IsGoodRun := (((x mod 2) = 0) and ((y mod 2) = 1)) or
                   (((x mod 2) = 1) and ((y mod 2) = 0))
    end;
    if (((cellOne.i mod 2) = 1) and ((cellOne.j mod 2) = 0)) or
       (((cellOne.i mod 2) = 0) and ((cellOne.j mod 2) = 1)) then begin
      IsGoodRun := (((x mod 2) = 0) and ((y mod 2) = 0)) or
                   (((x mod 2) = 1) and ((y mod 2) = 1));
    end;
  end;
end;
 
{Вычисляем границы возможного хода}
procedure CalcBegEnd(value: integer; var begInd,endInd: integer);
begin
  if ((value-2) < 1) then begInd := 1 else begInd := value-2;
  if ((value+2) > 8) then endInd := 8 else endInd := value+2;
end;
 
{Проверить все возможные ходы из ячейки}
function CheckGoodRun(amtRun: integer): boolean;
var
  bGood: boolean;
  i,j  : integer;
  begI,endI: integer;
  begJ,endJ: integer; 
begin
  CheckGoodRun := false;
  CalcBegEnd(cellOne.i,begI,endI);
  CalcBegEnd(cellOne.j,begJ,endJ);
  for i := begI to endI do
    for j := begJ to endJ do
      if IsGoodRun(i,j) then begin
        if (desk[i][j] = SEARCH) then begin
          CheckGoodRun := true;
          exit;
        end;
        desk[i][j] := amtRun+1;
      end;
  PrintDesk;
end;
 
{Поиск хода до второй ячейки}
procedure SearchRun(var amtRun: integer);
var
  i,j: integer;
begin
  if (desk[cellOne.i][cellOne.j] = SEARCH) then exit;
  for i := 1 to 8 do
    for j := 1 to 8 do
      if ((amtRun = 0) and (desk[i][j] = FIRST)) or
         ((amtRun > 0) and (desk[i][j] = amtRun)) then begin
        cellOne.i := i;
        cellOne.j := j;
        if CheckGoodRun(amtRun) then begin
          inc(amtRun);
          exit;
        end;
      end;
  inc(amtRun);
  SearchRun(amtRun);
end;
 
begin
  assign(f,'input.txt');
  reset(f);
  while (not EoF(f)) do begin
    readln(f,s);
    cellOne.i := ord(s[1])-96;
    cellOne.j := ord(s[2])-48;
    cellTwo.i := ord(s[5])-96;
    cellTwo.j := ord(s[6])-48;
 
    amtRun := 0;
    FillNullDesk;
    desk[cellOne.j][cellOne.i] := FIRST;
    desk[cellTwo.j][cellTwo.i] := SEARCH;
    PrintDesk;
    SearchRun(amtRun);
 
    SaveToFile('output.txt');
  end;
  close(f);
end.

var s:string;
    a,b,c,d:word;
function e(a,b,m:word):word;  
 begin    
{Функция проверяет каждый из 8ми случаев, если случай возможен, но начальные координаты и конечные не равны, то она вызывает эту же функцию еще раз, чтобы проверить на второй ход (см. ниже)}
  e:=0;
  if (b<7) and (a>1) then if (a-1=c) and (b+2=d) then
     begin
     if m=0  then begin e:=1; exit; end else begin e:=2; exit; end; 
{m - это номер проверки - 0 значит первая, 1 значит вторая. Если координаты равны при первой проверке - функция становится равна 1 - выход. Если при второй проверке - функция равна 2 - выход}
     end
     else
      begin
        if m=0 then   e:=e(a-1,b+2,1);
        if result=2 then exit;
      end;
  if (b<7) and (a<8) then if (a+1=c) and (b+2=d) then
     begin
     if m=0 then begin e:=1; exit; end else begin e:=2; exit; end;
     end
     else
     begin
      if m=0 then  e:=e(a+1,b+2,1);
      if result=2 then exit;
      end;
  if (b<8) and (a>2) then if (a-2=c) and (b+1=d) then
     begin
     if m=0 then begin e:=1; exit; end else begin e:=2; exit; end;
     end
     else
      begin
      if m=0 then  e:=e(a-2,b+1,1);  
      if result=2 then exit;
      end;
  if (b>1) and (a>2) then if (a-2=c) and (b-1=d) then
     begin
     if m=0 then begin e:=1; exit; end else begin e:=2; exit; end;
     end
     else
     begin
      if m=0 then  e:=e(a-2,b-1,1);  
      if result=2 then exit;
      end;
   if (b>2) and (a>1) then if (a-1=c) and (b-2=d) then
     begin
     if m=0 then begin e:=1; exit; end else begin e:=2; exit; end;
     end
     else
      begin
       if m=0 then  e:=e(a-1,b-2,1);  
       if result=2 then exit;
      end;
   if (b>2) and (a<8) then if (a+1=c) and (b-2=d) then
     begin
     if m=0 then begin e:=1; exit; end else begin e:=2; exit; end;
     end
     else
      begin
       if m=0 then e:=e(a+1,b-2,1);  
       if result=2 then exit;
      end;
   if (b<8) and (a<7) then if (a+2=c) and (b+1=d) then
     begin
     if m=0 then begin e:=1; exit; end else begin e:=2; exit; end;
     end
     else
     begin
      if m=0 then e:=e(a+2,b+1,1);  
      if result=2 then exit;
     end;
   if (b>1) and (a<7) then if (a+2=c) and (b-1=d) then
     begin
     if m=0 then begin e:=1; exit; end else begin e:=2; exit; end;
     end
     else
     begin
     if m=0 then e:=e(a+2,b-1,1);  
     if result=2 then exit;
      end;
     end;
              
begin
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output);
read(s); 
a:=ord(s[1])-96; b:=ord(s[2])-48; c:=ord(s[5])-96; d:=ord(s[6])-48; {Превращает буквы в цифры от 1 до 8. Ну и цифры тоже}
if e(a,b,0)=0 then write('NO') else  write(e(a,b,0));
end.

Var
  x0,y0,x,y : integer;
 
Function Horse(a0,b0,a,b : Integer) : Boolean;
Begin
  Horse:=((a0-2=a) and (b0+1=b)) or
         ((a0-1=a) and (b0+2=b)) or
         ((a0+1=a) and (b0+2=b)) or
         ((a0+2=a) and (b0+1=b)) or
         ((a0+2=a) and (b0-1=b)) or
         ((a0+1=a) and (b0-2=b)) or
         ((a0-1=a) and (b0-2=b)) or
         ((a0-2=a) and (b0-1=b));
end;
 
Begin
  x0:=1; y0:=1; { Readln(x0,y0); }
  x:=3; y:=5; { Readln(x,y); }
  If Horse(x0,y0,x,y) then Writeln('1')
    else
    If Horse(x0-2,y0+1,x,y) or
       Horse(x0-1,y0+2,x,y) or
       Horse(x0+1,y0+2,x,y) or
       Horse(x0+2,y0+1,x,y) or
       Horse(x0+2,y0-1,x,y) or
       Horse(x0+1,y0-2,x,y) or
       Horse(x0-1,y0-2,x,y) or
       Horse(x0-2,y0-1,x,y) then Writeln('2') else Writeln('NO');
end.