code 31014;
    procedure INISYMROW(L, U, I, A, X); value L,U,I,X;
    integer L,U,I; real X; array A;
    begin integer K;
        if L <= I then 
        begin K:= (I - 1) * I//2; L := K + L;
            K := (if U < I then U else I) + K;
            for L:= L step 1 until K do A[L]:= X;
            L := I + 1
        end;
        if U>I then for K:=(L-1)*L//2+I, K+L-1 while L<= U do 
        begin A[K]:= X; L:= L + 1 end 
    end INISYMROW;
        eop