Computation of the index of pollution caused by heavy metals in river sediment