PROGRAM Asal_Carpanlar
!----------------------------------------------
! 17prg02.f95
! Bir tamsayının 1 ve kendisi dahil 
! asal çarpanları (tam bölenleri).
!----------------------------------------------
IMPLICIT NONE
INTEGER :: I, K, Sayi

  PRINT *,"Pozitif bir tamsayı girin:"
  READ *,Sayi

  PRINT *,"Asal Çarpanlar:"
  DO I = 1, Sayi
    ! Sayinin I ile bölümünden kalan
    K = MOD(Sayi, I)

    ! Kalan sıfır mı?
    IF(K == 0) PRINT *, I
  END DO

END PROGRAM