LaplaceTransform[PDF[ExponentialDistribution[1,a], x], x, r]