... 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); ... k,i:integer;begin assign(f1,fo); rewrite(f1); dem1:=0; a[1]:=1; b[1]:=true; try(2); writeln(f1,dem1); close(f1);end;begin docf; fillchar(b,sizeof(b),false); dem:=0; xuly;end. assign(f,fo); ... 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....