Our goal is to calculate the probability of hitting the target by missile carrying one RV or warhead PS1,S6. We suppose that the flight of missile is composed by consequent events: \(S1\) - start, \(S2\) - boosting (boost stage), \(S3\) - orbiting (midterm stage), \(S4\) - reentry (terminal), \(S5\) - fail, \(S6\) - impact (hit the target). The events listed and described above (\(S1\), \(S2\), \(S3\), \(S4\), \(S5\), \(S6\)) can be considered as a Markov chain - a mathematical system that undergoes transitions from one state to another on a state space. It is a random process usually characterized as memoryless: the next state depends only on the current state and not on the sequence of events that preceded it. (see http://en.wikipedia.org/wiki/Markov_chain).

Note
MC is a transition matrix with 6 states. For instance, for \(S1\) we get three paths to leave: missile would not start due to technical problems Ps1,s1=0.02, missile would start (be launched) but go down due to technical problems Ps1,s5=0.02, missile would start and take a successful boost Ps1,s2=0.95. An absorbing state is a state from which it is impossible to leave: \(S5\) (missile technically failed or hit by BMD), \(S6\) (missile hit target). Here we consider RV has 100% reliability.
MC<-matrix(c(0.02,0.95,0,0,0.03,0,0,0,0.85,0,0.15,0,0,0,0,0.85,0.15,0,0,0,0,0,0.15,0.85,0,0,0,0,1,0,0,0,0,0,0,1),nrow=6,ncol=6,byrow=T)
print(MC)
## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] 0.02 0.95 0.00 0.00 0.03 0.00
## [2,] 0.00 0.00 0.85 0.00 0.15 0.00
## [3,] 0.00 0.00 0.00 0.85 0.15 0.00
## [4,] 0.00 0.00 0.00 0.00 0.15 0.85
## [5,] 0.00 0.00 0.00 0.00 1.00 0.00
## [6,] 0.00 0.00 0.00 0.00 0.00 1.00
solve(diag(nrow=4,ncol=4)-MC[1:4,1:4])%*%MC[1:4,5:6]
## [,1] [,2]
## [1,] 0.4046747 0.5953253
## [2,] 0.3858750 0.6141250
## [3,] 0.2775000 0.7225000
## [4,] 0.1500000 0.8500000