program ch0801
implicit none
integer , parameter :: N=12
real , dimension(1:N) :: RainFall_ins=0.0
real , dimension(1:N) :: RainFall_cms=0.0
integer :: Month
   print *, ' Input the rainfall values in inches'
   read *, RainFall_ins
   RainFall_cms=RainFall_ins * 2.54
   do Month=1,N
      print * , ' ', Month , ' ' , &
            RainFall_ins(Month) , ' ' , &
            RainFall_cms(Month)
   end do
end program ch0801