code 31074;
procedure HSHCOLTAM(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 LR:= LR step 1 until UR do 
    ELMROWCOL(LC, UC, LR, I, A, U, MATMAT(LC, UC, LR, I, A, U) * X)
end;
        eop