переведите с Паскаля на си++

[Pomogite_pls]

в Паскале получается...а в СИ++ нет(
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.