Обчислення визначника методом Гауса

begin

writeln(‘введи матрицю’);

for i:=1 to n do

for j:=1 to n do

begin

readln(m[I,j]);

end;

for i:=2 to n do

for j:=1 to n do

begin

k:=m[I,1]/m[1,1];

v[1,j]:=m[1,j];

v[I,j]:=m[1,j]*(-k)+m[I,j];

end;

for i:=3 to n do

for j:=2 to n do

begin

k:=v[I,2]/v[2,2];

mm[1,1]:=v[1,1];

mm[1,j]:=v[1,j];

mm[2,1]:=v[2,1];

mm[2,j]:=v[2,j];

mm[I,1]:=v[I,1];

mm[I,j]:=v[2,j]*(-k)+v[I,j];

end;