set serveroutput on;
 declare
     type t is table of binary_integer index by binary_integer;
      type tt is table of t index by binary_integer;
      desk tt; -- массив доски
      ii   binary_integer := 1; -- строки
      jj   binary_integer := 1; -- столбцы
      ind  binary_integer := 1; -- счетчик 
      rpt  binary_integer := 1; -- для ошибки 
      v    varchar2(25); -- для вывода на экран
     result binary_integer := 0; -- для запоминания значения 
   begin
     loop
            ii    := 1;
            jj    := 1;
            ind   := 1;
     -- заполнение массива
            for i in 1 .. 8 loop
              for j in 1 .. 8 loop
                desk(i)(j) := 0;
              end loop;
            end loop;
            -- поиск решения
            begin
              for i in 1 .. 8 loop
                for j in 1 .. 8 loop
                  desk(ii)(jj) := ind;
     declare
            tmp sys.odcivarchar2list := sys.odcivarchar2list();
     begin
     --для заполнения последнего 
            if ind = 64 then
              for i in 1 .. 8 loop
                for j in 1 .. 8 loop
                  if desk(i) (j) = 0 then
                    desk(i)(j) := 64;
                  end if;
                end loop;
              end loop;
            else
            --перемещение конем
              for i in (select ii + dx ii, jj + dy jj
                          from
                                (select 2 dx, -1 dy from dual --координаты x и y
                                union all select 2 dx, 1 dy from dual
                                union all select 1 dx, 2 dy from dual
                                union all select -1 dx, 2 dy from dual
                                union all select -2 dx, +1 dy from dual
                                union all select -2 dx, -1 dy from dual
                                union all select -1 dx, -2 dy from dual
                                union all select 1 dx, -2 dy from dual)
                        -- проверяем, что после выполенения хода конь остается на шахматной доске 
                         where ii + dx >= 1
                           and ii + dx <= 8
                           and jj + dy >= 1
                           and jj + dy <= 8) loop
                if desk(i.ii) (i.jj) = 0 then--Проверяет, является ли квадрат действительно пустым или нет
                  tmp.extend;
           result := 0;
     begin
     -- перемещение конем
            for ri in (select i.ii + dx x, i.jj + dy y--координаты x и y
                        from
                              (select 2 dx, -1 dy from dual
                              union all select 2 dx, 1 dy from dual
                              union all select 1 dx, 2 dy from dual
                              union all select -1 dx, 2 dy from dual
                              union all select -2 dx, +1 dy from dual
                              union all select -2 dx, -1 dy from dual
                              union all select -1 dx, -2 dy from dual
                              union all select 1 dx, -2 dy from dual)
                       -- проверяем, что после выполенения хода конь остается на шахматной доске 
                       where i.ii + dx >= 1
                         and i.ii + dx <= 8
                         and i.jj + dy >= 1
                         and i.jj + dy <= 8) loop
              result := result + (1 - sign(desk(ri.x) (ri.y)));--отмечаем ход
            end loop;
     end;
                  tmp(tmp.count) := to_char(result, 'fm00') ||
                                    to_char(i.ii, 'fm00') || to_char(i.jj, 'fm00');
                end if;
              end loop;
              --ошибка 
              if tmp.count = 0 then
                raise_application_error(-20000, 'Это тупик');
              end if;
              -- запоминаем координаты 
              select t.x, t.y
                into ii, jj
                from (select substr(column_value, 3, 2) x,
                             substr(column_value, 5, 2) y
                        from table(tmp)
                       order by substr(column_value, 1, 2), dbms_random.value) t
               where rownum = 1;
            end if;
     end;
                  ind := ind + 1;
                end loop;
              end loop;
           exception --если ошибка заходим в этот блок
             when others then
               if sqlcode = -20000 then
                 null;
               else
                 raise;
               end if;
           end;
           --останавливаем если прошли цикл
           exit when 64 in (desk(2)(3),desk(3)(2)) or rpt>10000;
           rpt := rpt+1;
    end loop;
    -- вывод результата
    for i in 1 .. 8 loop
           v := '|';
           for j in 1 .. 8 loop
             v := v || to_char(desk(i) (j), 'fm00') || '|';
           end loop;
           dbms_output.put_line(v);
    end loop;
  end;