Program detal2;
 uses crt;
 const n=3;
 det:array [1..n,1..n] of ³nteger=((5,2,3),
                                   (3,4,5),
                                   (6,6,2));
 type set³nt=set of 1..n;
 var t,tm³n :³nteger;
 a,am³n:array [1..n] of ³nteger;

 procedure detal(s:set³nt; k:³nteger);
 var ³,temp:³nteger;
 beg³n
 ³f s=[] then beg³n
 ³f tm³n>t then
 beg³n
 am³n:=a;
 tm³n:=t;
 end; end else
 beg³n
 for ³:=1 to n do
 ³f ³ ³n s then  beg³n
 a[k]:=³;
 temp:=t;
 ³f t<det[k,³] then t:=det[k,³];
 ³f t<tm³n then detal(s-[³],k+1);
 t:=temp;
 end;
 end;

 end;

 beg³n
 clrscr;
 tm³n:=max³nt;
 t:=0;
 detal([1..n],1);
 wr³teln(tm³n);
 for t:=1 to n do wr³te(am³n[t]:5);
 end.