! 関数の値の計算
PROGRAM ex1_4

  REAL :: f, x, a

  ! 関数の定義
  f(x) = x ** 5 + 6.0 * x ** 4 + 2.0 * x ** 3 + x ** 2 + 4.0

  READ *, a
  PRINT *, ' f(', a, ') = ', f(a)

END PROGRAM ex1_4