! ３種類の平均値
PROGRAM ex1_1

  REAL :: a, b, av1, av2, av3

  ! 値の読み取り
  READ *, a, b

  ! 平均値の計算
  av1 = ( a + b ) / 2.0
  av2 = ( a * b ) ** 0.5
  av3 = 2.0 / ( 1.0 / a + 1.0 / b )

  ! 読み取った平均値の表示
  PRINT *, av1, av2, av3

END PROGRAM ex1_1