Program to find the factors of an number

C      Program to find the factors of an number
        write(*,*)'Enter the integer:'
        read(*,*)n
        write(*,*)'The factors are of the given no. are:'
        do i=1,n
        r=mod(n,i)
        if (r.eq.0)then
        write(*,*)i
        end if
        end do
        end