code 34283;
integer procedure SOLUND(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];

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