PROGRAM Faktoriyel
!--------------------------------------------------------
! 07prg02.f95
! Faktor() fonksiyonu ile 0'dan 10'a kadar olan sayıları
! ve faktoriyellerini ekrana basar.
!--------------------------------------------------------
IMPLICIT NONE
INTEGER :: I

   DO I = 0, 10 
    PRINT *, I,"! = ", Faktor(I)
   END DO

CONTAINS

   INTEGER FUNCTION Faktor(N)
   INTEGER, INTENT(IN) :: N
   INTEGER :: J

     Faktor = 1
     DO J=1,N
       Faktor = Faktor * J
     END DO

   END FUNCTION Faktor

END PROGRAM