! complex number
PROGRAM ex4_2

  IMPLICIT NONE
  INTEGER :: n
  REAL :: x
  complex, PARAMETER :: i = ( 0.0E0, 1.0E0 )
  complex :: z

  PRINT *, 'Input a real number x and an integer n: '
  READ *, x, n

  z = EXP( i * x )
  PRINT *, z ** n
  PRINT *, COS( n * x ), SIN( n * x )

END PROGRAM ex4_2