code 31072;
procedure HSHROWMAT(LR, UR, LC, UC, I, X, U, A);
value LR, UR, LC, UC, I, X; integer LR, UR, LC, UC, I;
real X; array U, A;
begin 
    for LC:= LC step 1 until UC do 
    ELMCOLROW(LR, UR, LC, I, A, U, MATMAT(LR, UR, I, LC, U, A) * X)
end;
        eop