Курсовая работа: Знаходження оберненої матриці за формулою

var

a,invers,tmp_matrix : matr;

size : Integer; {size matrix}

i,j :Integer;

dt : real;

procedure PrintMatr(m:matr;n:integer);

var i,j:integer;

begin

for i:=1 to n do

begin

for j:=1 to n do

write(m[i,j]:8:3);

writeln;

end;

end;

Function Pow (x:Integer; y:Integer):Integer;

var

i,z :Integer;

begin

z := 1;

for i:=1 to y do

z := z * x;

Pow := z;

end;

procedure GetMatr(a:matr; var b:matr; m,i,j:integer);

var ki,kj,di,dj:integer;

begin

di:=0;

for ki:=1 to m-1 do