program Project2;

{$APPTYPE CONSOLE}
var a:array[1..100,1..100] of integer;
i,j,k,l,n,s:integer;
c:array [1..100]of integer;
f1,f2:text;

procedure p(ni,v:integer);
var i:integer;
begin
c[ni]:=v;
if(v=l)or(ni>n)then begin
if v=l then begin
{***** 1}
for i:=1 to ni do write(f2,c[i]);
writeln(f2);
end;
end
else
for i:=1 to n do
if a[v,i]>0 then {***2} p(ni+1,i);
end;

begin
assign(f1,'input.txt');reset(f1);assign(f2,'output.txt');rewrite(f2);
readln(f1,n,k,l);
for i:=1 to n do
for j:=1 to n do
read(f1,a[i,j]);
p(1,k);
close(f1);
close(f2);

end.