... write(i,j,k,' ',k,j,i); exit; end;if (j<>0)and(i<>j)and so[j,i,k] then begin write(i,j,k,' ',j,i,k); exit; end; if (k<>0)and((i<>j)or(i<>k)or(k<>j))and ... (k<>0)and((i<>j)or(i<>k)or(k<>j))and so[k,i,j] then begin write(i,j,k,' ',k,i,j); exit; end; if (j<>0)and((i<>j)or(i<>k)or(k<>j))and so[j,k,i] then begin write(i,j,k,' ',k,j,i); ... writeln(0,' ',0);end;procedure inkq;beginclrscr;writeln(n,' ',s,' ',fn);if tangdan then writeln('CO')else writeln('KHONG');demxungkhac;writeln(tongxk);timlytuong;end;beginnhap;inkq;readln;end....