opg1.b 158 B

123456
  1. 100 rem interest rate program page 33
  2. 110 read m,d,p,n
  3. 300 let r= m * d /(p*(n+1)) * 200
  4. 400 print "percent interest is",r
  5. 500 data 12, 320, 3000, 36
  6. 600 end