QUESTÃO 4C - LISTA 2 SEGUNDO ESTÁGIO ICC

PROGRAM LISTA2_QUESTAO4C
!LOCAIS DE MEMÓRIA
REAL EX, X, FAT
INTEGER N, NF, I
!ENTRADA DE DADOS
WRITE(*,*) 'ESCREVA O VALOR DO X'
READ(*,*) X
WRITE(*,*) 'ESCREVA O NUMERO DE TERMOS'
READ(*,*) NF
!CÁLCULOS
EX = 0
DO N= 0, NF, 1
    FAT = 1
    DO I = 2, N, 1
        FAT = FAT*I
    END DO
    EX = EX + X**(2*N+1)/FAT
END DO
!SAÍDA DE DADOS
WRITE(*,*) 'Exp AULA=', EX
WRITE(*,*) 'Exp BIBLIOTECA=', exp(X)
END PROGRAM