var m,n,i,j:integer; a:array[1..10,1..10]?byte; b:array[1..10,1..10]?of?boolean; :text; s:string;procedure?next(x,y:integer;s:string);var xc,yc:string[2];begin if?(x=m)and(y=n)?then?begin ?writeln(s);?halt;{프로그램을 찾은 후 종료합니다. 그렇지 않으면 모든 경로가 출력됩니다.}?end else start {right} if?(y1)and(not?b[x+ 1,y -1])and(a[x+1,y-1]=0)?그럼 시작할까요?b[x+1,y-1]:=true;?str(x+1:0, xc);?str(y-1:0,yc);?s:=s+'-('+xc+','+yc+')';?next(x+1,y-1,s);? b[x +1,y-1]:=false;?end; {left} if?(y>1)and(not?b[x,y-1])and(a[x,y-1] =0 )?그러면?begin?b[x,y-1]:=true;?str(x:0,xc);?str(y-1:0,yc);?s:=s+'-( '+ xc+','+yc+')';? next(x,y-1,s);?b[x,y-1]:=false;?end(왼쪽 위로) if?(x> 1)and (y>1)and(not?b[x-1,y-1])and(a[x-1,y-1]=0)?then?begin?b[x-1,y -1] :=true;?str(x-1:0,xc);?str(y-1:0,yc);?s:=s+'-('+xc+','+yc+')' ;? 다음 (x-1,y-1,s);?b[x-1,y-1]:=false;?end {up} if?(x>1)and(not?b[x -1, y])and(a[x-1,y]=0)?그러면?begin?b[x-1,y]:=true;?str(x-1:0,xc);?str (y: 0,yc);?s:=s+'-('+xc+','+yc+')';? next(x-1,y,s);?b[x-1,y]: =false; ?end; if?(x>1)and(y