PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018Внимание! Если программа не работает, обновите версию!uses NumLibABC;begin Writeln('Матрица А'); var A:=new Matrix(MatrGen(6,6,(i,j)->i>j?1.0:2*Sin(i+1+Cos(j+1)))); A.Println(12,8); Writeln('Матрица B'); var B:=new Matrix(MatrGen(6,1,(i,j)->6*Ln(2+i))); B.Println(12,8); Writeln('Матрица X'); // X:=A^(-1)xB var X:=A.Inv*B; X.Println(12,8)end.