code 34281;
integer procedure SOLOVR(A, M, N, X, EM);
value M, N; integer M, N; array A, X, EM;
begin integer I;
    array VAL[1:N], V[1:N,1:N];

    SOLOVR:= I:= QRISNGVALDEC(A, M, N, VAL, V, EM);
    if I = 0 then SOLSVDOVR(A, VAL, V, M, N, X, EM)
end SOLOVR;
        eop