[交流] 【求助】求人帮忙

C234567
      PROGRAM TEST
      IMPLICIT NONE
      INTEGER I, M, J, K, FACT
      REAL A, SUM
      WRITE(*,*) 'PLEASE INPUT I, M, A'
      READ(*,*) I, M, A
      SUM = 0.0
      DO 20 J=1, I
        DO 10 K=1, M
          SUM = SUM+(J+K)**2*J**(J+K-1)*A**K*(1-A)**J/(FACT(J)*FACT(K))
10       CONTINUE
20    CONTINUE
      WRITE(*,*) SUM
      END
      INTEGER FUNCTION FACT(I)
      IMPLICIT NONE
      INTEGER I, J
      FACT = 1
      DO 10 J=1,I
        FACT = FACT*J
10    CONTINUE
      END