/ знаходження// LU розкладання, p, i, j, k: integer;: real;// норма строкіp: = 1 to n do: = Abs (a [p, 1]); j: = 1 to n donorm = N; j: = 1 to N do [j, i]: = X1 [j]; [j, i]: = X2 [j ];;; i: = 1 to n doj: = 1 to n do [i, j]: = 0; k: = 1 to n do [i, j]: = O [i, j] + O1 [i , k] * O2 [k, j];;;.