... if (xet[hoanvi[i1],hoanvi[k1],hoanvi[j1]]=false) then begin kt:=false; exit; end; if (kt=true) then begin for t:=1 to n do write(f,a[hoanvi[t]],' '); writeln(f); inc(dem); ... xet[j,k,i]:=false; end; fillchar(chuaxet,sizeof(chuaxet),true); fillchar(hoanvi,sizeof(hoanvi),0); try(1); writeln(f,dem); close(f);end;begin docf; xuly;end.const fi='PCIRCLE.INP'; ... j:integer;begin for j:=1 to n do if (chuaxet[j]) then begin hoanvi[i]:=j; chuaxet[j]:=false; if (i=n) then ghif else try(i+1); chuaxet[j]:=true; hoanvi[i]:=0; end;end;procedure xuly;var i,j,k:integer;begin...