10 INPUT "N=? ",N
20 INPUT "R=? ",R
30 INPUT "P=? ",P
40 Q=N/((N-1)/R-1/P)
50 PRINT "Q1= ";Q
60 I1=Q/N/P
70 PRINT "I1= ";I1
80 P2=2*R-Q
90 Q2=1/((N-1)/R-N/P2)
100 PRINT "Q2= ";Q2
110 I2=N*Q2/P2
120 PRINT "I2= ";I2
130 I=-I1*I2
140 PRINT "I= ";I