program divisors c This program finds the divisors of an integer input by the user. c The divisors are printed to a file. integer n, k, d(10) open (unit = 1, file = "divisors") print *, "Enter a positive integer :" read *, n write (1,*) "Here are the divisors of ", n, " :" write (1,*) k = 0 do i = 1, n if (mod(n,i) .eq. 0) then k = k + 1 d(k) = i end if if (k .eq. 10) then write (1,5) (d(j), j = 1, 10) k = 0 end if end do write (1,5) (d(j), j = 1, k) 5 format (10i7) close(1) print * print *, "The divisors are listed in the file 'divisors'." print *, "Good luck finding it! Bye!" end