NV2.F - Процедура решения уравнения U*DUx=B(Писанецкий,стр. 312)