program job; var n,i,j,max:integer; a:array[0..1000,0..1000] of integer; b:array[0..1000] of boolean; procedure search(t,s:integer); var i:integer; begin if s>max then exit; for i:=1 to n do if b[i] then begin b[i]:=false; s:=s+a[t,i]; if t