oef;; j: = i + 1 to Razmer -1 do begin: = Temp.Matrix [j, i]; k: = 0 to Razmer - 1 do begin.Matrix [j, k]: = Temp. Matrix [j, k] - koefStr * Temp.Matrix [i, k];. Matrix [j, k]: = dop.Matrix [j, k] - koefStr * dop.Matrix [i, k];;;; : = Temp.Matrix [Razmer - 1, Razmer - 1]; k: = 0 to Razmer - 1 do begin.Matrix [Razmer - 1, k]: = Temp.Matrix [Razmer - 1, k]/koef;. Matrix [Razmer - 1, k]: = dop.Matrix [Razmer - 1, k]/koef;;
{}
i: = Razmer - 1 downto 1 do beginj: = i - 1 downto 0 do begin: = Temp.Matrix [j, i]; k: = 0 to Razmer -1 do begin.Matrix [j, k]: = Temp.Matrix [j, k] - Temp.Matrix [i, k] * koefStr;. Matrix [j, k]: = dop.Matrix [j, k] - dop.Matrix [i , k] * koefStr;;;;
{}: = dop;;
end.
