Составить программу вычисления длин медиан треугольника, у которой длины сторон a, b, c

var a, b, c, a1, b1, c1 : integer; / переменные целого типа; ma, mb, mc : real; / переменные вещественного типа; function f : real; / функция вещественного типа; begin / блок в котором мы задаем функцию f : = sqrt ((2 * a1 * a1 + 2 * b1 * b1 - c1 * c1) / 4); end; begin write ('a='); readln (a); / Вводим с клавиатуры а; write ('b='); readln (b); / Вводим с клавиатуры b; write ('c='); readln (c); / Вводим с клавиатуры с; a1 : = a; b1 : = b; c1 : = c; mc : = f; / присваем значение, чтобы использовать в функции; a1 : = c; b1 : = b; c1 : = a; ma : = f; a1 : = a; b1 : = c; c1 : = b; mb : = f; writeln ('Медианы равны: ', ma : 1 : 3, ' | ', mb : 1 : 3, ' | ', mc : 1 : 3); / Выводим то что получилось readln end.