Questão 'SENO HIPERBÓLICO' USANDO A FUNÇÃO EXPONENCIAL DE X

PROGRAM SENO_HIPERBOLICO
!lOCAIS DE MEMÓRIA
REAL SENHX,X
!ENTRADA DE DADOS
WRITE(*,*) 'DIGITE O VALOR DE X'
READ(*,*) X
!CÁLCULOS
SENHX = (EXP(X) - EXP(-X))/2
!SAÍDA DE DADOS
WRITE(*,*) 'SINH(X) NO FORTRAN = ', SINH(X)
WRITE(*,*) 'O VALOR DE SENHX DE BRUNA = ', SENHX
END PROGRAM