program prog7 implicit none real a, b, c, avrg, sum read *, a, b, c sum = a+b+c avrg = sum/3. print *, 'a =', a, '; b =', b, '; c =', c print *, 'Сумма =', sum print *, 'Среднее арифметическое =', avrg end