const n  = 5;
      n2 = n*n;
      k  = 8; { кiлькiсть можливих ходiв коня }
      a: array[1..8] of integer = (2, 1,-1,-2,-2,-1, 1, 2);
      b: array[1..8] of integer = (1, 2, 2, 1,-1,-2,-2,-1);
var i,j: integer;
    h:   array [1..n,1..n] of integer;
    yes: boolean;

procedure out; {виведення результату}
BEGIN
  for i:=1 to n do 
  begin 
    for j:=1 to n do write(h[i,j]:3);
    writeln;
  end;
  halt; {замінити на writeln, щоб отримати усі розв'язки}
END;

procedure step(i,x,y: integer);
var j,u,v: integer;
BEGIN
  for j:=1 to k do 
  begin
    u:=x+a[j];
    v:=y+b[j];
    if (1 <= u) and (u <= n) and
       (1 <= v) and (v <= n) then
    if (h[u,v] = 0) then
    begin
      h[u,v]:= i; {здійснення ходу}
      if (i<n2) then step(i+1,u,v)
                else out;
      h[u,v]:= 0; {відміна ходу}
    end;
  end;  
END;

BEGIN
  yes:=false; 
  for i:= 1 to n do
  for j:= 1 to n do h[i,j]:=0;
  h[1,1]:=1;
  step(2,1,1);
  if not yes then writeln
  ('Жодного розв''язку при n = ',n);
END.