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