! array product
PROGRAM ex6_2

  IMPLICIT NONE
  INTEGER :: n
  REAL :: x(0:4)

  x = (/ ( 2E0 ** n, n = 0, 4) /)
  x = x(0:4) * x(4:0:-1)
  PRINT '(1X, 5F9.5)', x

END PROGRAM ex6_2