program lougras;
uses crt;
 var i,j,n,nsqr:integer; q,qq:boolean;
     dx,dy:array[1..8]of integer;
     h:array[1..8,1..8]of integer;
 procedure lepes(i,x,y:integer;var q:boolean);
 var k,u,v:integer; q1:boolean;
 begin k:=0;
  repeat k:=k+1; q1:=false;
   u:=x+dx[k];v:=y+dy[k];
   if(1<=u)and(u<=n)and(1<=v)and(v<=n)and(h[u,v]=0)then begin
    h[u,v]:=i;
    if i<nsqr then begin lepes(i+1,u,v,q1);
      if not(q1) then h[u,v]:=0;end
    else q1:=true;
   end;
  until q1 or (k=8);
  q:=q1;
 end;
var c:char;
begin
  dx[1]:=2;  dx[2]:=1;  dx[3]:=-1; dx[4]:=-2;
  dx[5]:=-2; dx[6]:=-1; dx[7]:=1;  dx[8]:=2;
  dy[1]:=1;  dy[2]:=2;  dy[3]:=2;  dy[4]:=1;
  dy[5]:=-1; dy[6]:=-2; dy[7]:=-2; dy[8]:=-1;
  repeat
   write('Az n = ');readln(n);
   for i:=1 to n do
    for j:=1 to n do h[i,j]:=0;
   write('A kezd.poz.x=');readln(i);write('A kezd.poz.y=');readln(j);
   nsqr:=n*n;h[i,j]:=1; lepes(2,i,j,qq);
   if qq then
    for i:=1 to n do begin
     for j:=1 to n do write(h[i,j]:5);
     writeln;
    end
    else Writeln('Nincs lepes');
   writeln('Folyatja (kilepes ESC)?');
   c:=readkey;
  until (c=#27);

end.