Описать процедуру 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