program ch0402
!
! This program reads in three numbers and sums
! and averages them
!
implicit none
real :: n1,n2,n3,average = 0.0, total = 0.0
integer :: n = 3
   print *,' type in three numbers.'
   print *,' Separated by spaces or commas'
   read *,n1,n2,n3
   total = n1 + n2 + n3
   average = total/n
   print *,'Total of numbers is ',total
   print *,'Average of the numbers is ',average
end program ch0402