Вычислите длины медианы треугольника, заданного длинами сторон.

program mediana;uses crt;var a,b,c:integer;            m:real;begin clrscr; write('Input 1 side:'); readln(a);write('Input 2 side:'); readln(b); write('Input 3 side:'); readln(c); m:=1/2*sqrt(2*sqr(a)+2*sqr(b)-sqr(c)); writeln('Mediana= ',m:2:2); write('Press any key...'); repeat until keypressed;end.