Proc3. Описать процедуру Mean($$X$$, $$Y$$, $$AMean$$, $$GMean$$), вычисляющую среднее арифметическое $$AMean = (X + Y)/2$$ и среднее геометрическое $$GMean = \sqrt{X * Y}$$ двух положительных чисел $$X$$ и $$Y$$ ($$X$$ и $$Y$$ — входные, $$AMean$$ и $$GMean$$ — выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар $$(A, B), (A, C), (A, D)$$, если даны $$A, B, C, D$$.

Решение:

Другие задачи из раздела Proc можно посмотреть здесь.