X0 <- 5
c <- 100
pruin <- (c-X0)/c

EXTM1 <- pruin*1 + (c-1)*(1-pruin)
print(EXTM1)

[1] 5.9