задача с процедурами

[investr]

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

[Leshii]

procedure Mean(x,y:real; var AMean,GMean:real);
begin
AMean:=(x+y)/2;
GMean:=sqrt(x * y);
end; 
var a,b,c,d,am,gm:real;
begin
write('Введите A: '); readln(a);
write('Введите B: '); readln(b);
write('Введите C: '); readln(c);
write('Введите D: '); readln(d);
mean(a,b,am,gm);
writeln('Для пары (A,B) cp.apифм. =',am:0:6,' cp.гeoм. = ',gm:0:6);
mean(a,c,am,gm);
writeln('Для пары (A,C) cp.apифм. =',am:0:6,' cp.гeoм. = ',gm:0:6);
mean(a,d,am,gm);
writeln('Для пары (A,D) cp.apифм. =',am:0:6,' cp.гeoм. = ',gm:0:6);
readln;
end.

[Pomogite_pls]

возникли трудности с перводом с паскаля на с++

[DiemonStar]

а вы попробуйте перевести программу в алгоритм, а потом алгоритм уже на СиПиПи реализовывать.