I have an equation which I need to triple integrate over a unit cube. The equation is

    pot = NIntegrate[1/Sqrt[(x - h)^2 + (y - k)^2 + (z - l)^2], {h,-1,1}, {k,-1, 
    ,1},{l,-1,1}];

As soon as I enter Shift+Enter it immediately processes the command. But now what I want is to plot its ContourPlot for different ${z}$ values (I chose $z=0.5$). So I give the command

    ContourPlot[pot /. {z -> 0.5}, {x, -2, 2}, {y, -2, 2}]
But this piece of code takes just forever to process. I just keep on waiting and waiting but processing never ends (it takes really really long time). I am not sure that how is this such a computationally heavy task. For $z$ other than $0$ it takes longer time. 

Is there something that I am doing wrong? I don't think this is a drawback of the device I am using. Is there a way to improve the performance of this code I am using?

For your reference, I am attaching the contour plot for $z=0$.

[![enter image description here][1]][1]


  [1]: https://i.sstatic.net/dT9tm.jpg