Треугольник задан длинами сторон. Найти длины медиан - надо в Паскале

Var

a, b, c, ma, mb, mc: real;

begin

read (a) ; read (b) ; read (c) ;

ma: = (sqrt (2*b*b+2*c*c-a*a)) / 2;

mb: = (sqrt (2*a*a+2*c*c-b*b)) / 2;

mc: = (sqrt (2*a*a+2*b*b-c*c)) / 2;

writeln ('Медиана к стороне a=', ma:17:2) ;

writeln ('Медиана к стороне b=', mb:17:2) ;

writeln ('Медиана к стороне с=', mс: 17:2) ;

end.