Треугольник задан тремя сторонами. Вычислить его медианы. Решить с помощью процедуры или функции — Pascal(Паскаль)

uses crt;
var a,b,c:real;
function M_A(a,b,c:real):real;
begin
M_A:=sqrt(2*(b*b+c*c)-a*a)/2;
end;
 
begin
clrscr;
writeln('vvedite storoni treugolnika');
readln(a,b,c);
writeln('mediana k storone a ravna = ',M_A(a,b,c):4:2);
writeln('mediana k storone b ravna = ',M_a(c,a,b):4:2);
writeln('mediana k storone c ravna = ',M_a(b,c,a):4:2);
readln
end.