! 例題 1-1 ３種類の平均値 ［簡単な計算 ］
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