! p, debt
! r, one-period interest rate
! n, number of periods
! a, monthly payments

implicit none
integer :: n
real    :: a, p, r

p = 25000.0
r = 0.07 / 12.0
n = 7 * 12

a = r * (1.0 + r)**n * p / ((1.0 + r)**n - 1.0)

write(*,*) 'monthly payment is ', a, '($)'
stop
end