b"\n_START_ARTICLE_\nSkaka\xc4\x8dev obhod\n_START_SECTION_\nProgram v paskalu\n_START_PARAGRAPH_\nProgram v paskalu_NEWLINE__NEWLINE_ program lipicanec(output);_NEWLINE_ [[Niklaus Wirth|Wirth N.]], Ra\xc4\x8dunalni\xc5\xa1ko programiranje I}_NEWLINE_ const n=8;    _NEWLINE_       nsq=n*n;      {deska 8x8}_NEWLINE_       xz=1;   yz=1; {zacetni koordinati}_NEWLINE_ type index=1...n;_NEWLINE_ var  i,j : integer;_NEWLINE_      q   : boolean;_NEWLINE_      s   : set of index;_NEWLINE_      a,b : array[1...8] of integer; {osem moznih skokov}_NEWLINE_      h   : array[index,index] of integer;_NEWLINE_      m   : integer;_NEWLINE_  _NEWLINE_ procedure izpis; {resitve}_NEWLINE_ var i,j:integer;_NEWLINE_ begin_NEWLINE_   for i:=1 to n do begin_NEWLINE_     for j:=1 to n do write(h[i,j]:4);_NEWLINE_     writeln;_NEWLINE_   end;_NEWLINE_ end; {izpis}_NEWLINE_  _NEWLINE_ procedure try(i:integer; x,y:index; var q:boolean);_NEWLINE_ var k,u,v : integer; q1:boolean;_NEWLINE_ begin_NEWLINE_   k:=0;_NEWLINE_   repeat_NEWLINE_     k:=k+1;      q1:=false;_NEWLINE_     u:=x+a[k];   v:=y+b[k];_NEWLINE_     if (u>=1) and (u<=n) and (v>=1) and (v<=n) then_NEWLINE_       if h[u,v]=0 then begin_NEWLINE_         h[u,v]:=i;_NEWLINE_         if i<nsq then begin_NEWLINE_           try(i+1,u,v,q1);    {rekurzivni klic}_NEWLINE_         if not q1 then h[u,v]:=0;_NEWLINE_       end else_NEWLINE_         q1:=true;_NEWLINE_     end;_NEWLINE_   until (q1 or (k=8));_NEWLINE_   q:=q1;_NEWLINE_ end;{try}_NEWLINE_  _NEWLINE_ begin_NEWLINE_   s:=[1...n];_NEWLINE_   begin_NEWLINE_     a[1]:= 2; b[1]:= 1;_NEWLINE_     a[2]:= 1; b[2]:= 2;_NEWLINE_     a[3]:=-1; b[3]:= 2;_NEWLINE_     a[4]:=-2; b[4]:= 1;_NEWLINE_     a[5]:=-2; b[5]:=-1;_NEWLINE_     a[6]:=-1; b[6]:=-2;_NEWLINE_     a[7]:= 1; b[7]:=-2;_NEWLINE_     a[8]:= 2; b[8]:=-1;_NEWLINE_     for i:=1 to n do_NEWLINE_       for j:=1 to n do begin h[i,j]:=0; end;_NEWLINE_     h[xz,yz]:=1;_NEWLINE_     try(2,xz,yz,q);_NEWLINE_     if q then izpis else writeln('Ni re\xc5\xa1itve!');_NEWLINE_   end;_NEWLINE_ end."