Помогите перевести программу с Pascal в С++
function Perimetr(a, b, c ; Real) : Real;
begin
Perimetr := a + b + c;
end;
function Ploshad(a, b, c : Real) : Real;
var p : Real;
begin
p := Perimetr(a, b, c) / 2;
Ploshad := Sqrt(p * (p-a) * (p-b) * (p-c));
end;
var a1, b1, c1, a2, b2, c2 : Real;
begin
Write('Введите значения длин сторон первого треугольника через пробел: '); ReadLn(a1, b1, c1);
Write('Введите значения длин сторон второго треугольника через пробел: '); ReadLn(a2, b2, c2);
WriteLn('Сумма периметров = ', Perimetr(a1, b1, c1) + Perimetr(a2, b2, c2):0:3);
WriteLn('Сумма площадей = ', Ploshad(a1, b1, c1) + Ploshad(a2, b2, c2):0:3);
end.