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