ChPol[A_, x_] := (n = Length[A]; f = Range[n + 1]; 
          f[[1]] = 1; 
For[(Subscript[N, 1]) = IdentityMatrix[n]; 
            f[[2]] = -Tr[A]; i = 1, i < n, i++, 
            (Subscript[N, 1]) = A . (Subscript[N, 1]) + f[[i + 1]] IdentityMatrix[n]; 
            f[[i + 2]] = -(1/(i + 1)) Tr[
                  A . (Subscript[N, 1]) ]]; 
f = Reverse[f]; 
          f = FullSimplify[f];  
          f = f . Table[
                x^k, {k, 0, n}]; 
(((-1))^n) 
            f);

ChPolKo[A_, x_] := (n = Length[A]; f = Range[n + 1]; 
          f[[1]] = 1; 
For[(Subscript[N, 1]) = IdentityMatrix[n]; 
            f[[2]] = -Tr[A]; i = 1, i < n, i++, 
            (Subscript[N, 1]) = A . (Subscript[N, 1]) + f[[i + 1]] IdentityMatrix[n]; 
            f[[i + 2]] = -(1/(i + 1)) Tr[
                  A . (Subscript[N, 1]) ]]; 
f = Reverse[f]; 
          f = FullSimplify[f]; 
(((-1))^n) 
            f);