!　学習目的：キーボード入力．read(*,*)
! ex112.f
      write(*,*) 'ドーナツの面積 A=pi*(r2*r2-r1*r1)'
      write(*,*) 'r2=?, r1=?  (r2 > r1)'
      read(*,*) r2,r1
      pi=4.*atan(1.0) ! atanは組込み関数
      write(*,*) 'pi=',pi
      write(*,*) 'A=',pi*(r2*r2-r1*r1)
      stop
      end