задаете матрицу, потом пишете что нибудь вроде етого
Код:
n:=4:k:=0:for i from 1 to n do for j from 1 to n do for k from 1 to n do S:=diff(A[i,j],x[k])+diff(A[j,k],x[i])+diff(A[k,i],x[j]): if S=0 then k:=k+1 end if: end do: end do: end do: if k=n^3 then print("удовлетворяет тождеству Якоби") end if: