Решение задачи Proc 3

#include <bits/stdc++.h>
using namespace std;

void Mean(double X, double Y, 
		double &AMean, double &GMean) {
	AMean = (X + Y) / 2.0;
	GMean = sqrt(X * Y);
	return;
}

int main() {
	srand((int)time(0));
	double a, b, c, d;
	double AMean, GMean;

	a = rand() % 20 + 1;
	b = rand() % 20 + 1;
	c = rand() % 20 + 1;
	d = rand() % 20 + 1;
	cout << "A = " << a << " : ";
	cout << "B = " << b << " : ";
	cout << "C = " << c << " : ";
	cout << "D = " << d << endl;

	Mean(a,b,AMean,GMean);
	cout << endl <<"(A,B)" << endl;
	cout << "AMean = " << AMean << " : ";
	cout << "GMean = " << GMean << endl;

	Mean(a,c,AMean,GMean);
	cout << endl <<"(A,C)" << endl;
	cout << "AMean = " << AMean << " : ";
	cout << "GMean = " << GMean << endl;

	Mean(a,d,AMean,GMean);
	cout << endl <<"(A,D)" << endl;
	cout << "AMean = " << AMean << " : ";
	cout << "GMean = " << GMean << endl;
	
	return 0;
}

import random
import math

def Mean(X,Y,Result):
   Result['AMean'] = (X + Y) / 2
   Result['GMean'] = math.sqrt(X * Y)
   return

R = {'AMean' : None, 'GMean' : None}
#A = random.uniform(-10,10)
A = random.randrange(0,10)
B = random.randrange(0,10)
C = random.randrange(0,10)
D = random.randrange(0,10)

print('A = ', A)
print('B = ', B)
print('C = ', C)
print('D = ', D)

print("(A,B)")
Mean(A,B,R)
print('AMean = ', R['AMean'])
print('GMean = ', R['GMean'])

print("(A,C)")
Mean(A,C,R)
print('AMean = ', R['AMean'])
print('GMean = ', R['GMean'])

print("(A,D)")
Mean(A,D,R)
print('AMean = ', R['AMean'])
print('GMean = ', R['GMean'])
									

program Proc3;
 
procedure Mean(X,Y:Real; var AMean,GMean:Real);
begin
  AMean := (X + Y)/2;
  GMean := sqrt(X * Y);
end;
 
var
  i:Integer;
  A,B,C,D,AMean,GMean:Real;
 
begin
  Write('A: ');
  Readln(A);
  Write('B: ');
  Readln(B);
  Write('C: ');
  Readln(C);
  Write('D: ');
  Readln(D);
 
  Mean(A,B,AMean,GMean);
  Writeln(AMean,' ',GMean);
 
  Mean(A,C,AMean,GMean);
  Writeln(AMean,' ',GMean);
 
  Mean(A,D,AMean,GMean);
  Writeln(AMean,' ',GMean);
  Readln;
end.