Перевести с Языка PASCAL в С++ uses crt;
var a,b,c,ma,mb,mc: real;

function Mediana (x,y,z: real): real;
var m: real;
begin
m:=0.5*((2*sqr(y))+(2*sqr(z))-sqr(x));
Mediana:=m;
end;

begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
writeln('Медиана к стороне А =', Mediana (a,b,c):0:1);
writeln('Медиана к стороне B =', Mediana (b,c,a):0:1);
writeln('Медиана к стороне C =', Mediana (c,a,b):0:1);
readkey
end.

Код программы:

#include <iostream>

#include <locale>

using namespace std;

double Mediana(double x, double y, double z) {

double m;

m = 0.5*(2 * y*y + 2 * z*z - x*x);

return m;

}

int main()

{

setlocale(LC_ALL, "Russian");

double a, b, c, ma, mb, mc;

cout << "a = ";

cin >> a;

cout << "b = ";

cin >> b;

cout << "c = ";

cin >> c;

cout<<"Медиана к стороне А = "<< Mediana(a, b, c)<<endl;

cout <<"Медиана к стороне B = "<< Mediana(b, c, a)<<endl;

cout <<"Медиана к стороне C = "<< Mediana(c, a, b)<<endl;

return 0;

}