PROGRAM Binom_Acilimi
!--------------------------------------------------------
! 07prg04.f95
! Kartezyen-polar çevrimi (iç Subroutine ile)
!--------------------------------------------------------
IMPLICIT NONE
INTEGER :: n, k

  DO n = 0, 6
  DO k = 0, n
    WRITE(*,FMT='(I3)',ADVANCE='No') C(n,k)
  END DO
  WRITE(*,*)
  END DO

CONTAINS

   ! N! değerini döndürür
   INTEGER FUNCTION Faktor(N)
   INTEGER, INTENT(IN) :: N
   INTEGER :: J
     Faktor = 1
     DO J=1,N
       Faktor = Faktor * J
     END DO
   END FUNCTION Faktor

   ! C(n,k) kombinasyonunu hesaplar
   INTEGER FUNCTION C(N, K)
   INTEGER, INTENT(IN) :: N, K
     C = faktor(n)/(faktor(k)*faktor(n-k))
   END FUNCTION

END PROGRAM Binom_Acilimi