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

Procedure Mean (X, Y:real; Var AMean, GMean:real) ;

Begin

AMean: = (X+Y) / 2;

GMean:=Sqrt (X*Y) ;

End;

Var

A, B, C, D, S:real;

Begin

Write ('A = ') ; ReadLn (A) ;

Write ('B = ') ; ReadLn (B) ;

Write ('C = ') ; ReadLn (C) ;

Write ('D = ') ; ReadLn (D) ;

WriteLn;

Mean (A, B, S, B) ;

WriteLn ('AMean (A, B) = ', S) ;

WriteLn ('GMean (A, B) = ', B) ;

WriteLn;

Mean (A, C, S, C) ;

WriteLn ('AMean (A, C) = ', S) ;

WriteLn ('GMean (A, C) = ', C) ;

WriteLn;

Mean (A, D, S, D) ;

WriteLn ('AMean (A, D) = ', S) ;

WriteLn ('GMean (A, D) = ', D) ;

End.

A = 1

B = 2

C = 3

D = 4

AMean (A, B) = 1.5

GMean (A, B) = 1.4142135623731

AMean (A, C) = 2

GMean (A, C) = 1.73205080756888

AMean (A, D) = 2.5

GMean (A, D) = 2