Даны длины а,в,с сторон некоторого треугольника. Найти медианы треугольника, сторонами которого являются медианы исходного

PASCAL ABCvar a, b, c, ma, mb, mc: real;begin{ Проверяем правильный ввод данных: }writeln(\'Введите стороны треугольника:\');repeatwriteln;write(\' a = \');readln(a);if a <= 0 then write(\'Сторона a должна быть положительной!\'); until a > 0;repeatwriteln;write(\' b = \');readln(b);if b <= 0 then write(\'Сторона a должна быть положительной!\'); until b > 0;repeatwriteln;write(\' c = \');readln(c);if c <= 0 then write(\'Сторона a должна быть положительной!\')else if c >= a + b then write(\'Введите с меньше, чем \', a + b); until c < a + b;// Основная программа:{ Медианы исходного треугольника: }ma := sqrt(2 * (sqr(b) + sqr(c)) - sqr(a)) / 2;mb := sqrt(2 * (sqr(a) + sqr(c)) - sqr(b)) / 2;mc := sqrt(2 * (sqr(a) + sqr(b)) - sqr(c)) / 2;{ Стороны нового треугольника: }a := ma;b := mb;c := mc;{ Медианы нового треугольника: }ma := sqrt(2 * (sqr(b) + sqr(c)) - sqr(a)) / 2;mb := sqrt(2 * (sqr(a) + sqr(c)) - sqr(b)) / 2;mc := sqrt(2 * (sqr(a) + sqr(b)) - sqr(c)) / 2;writeln;writeln(\'Искомые медианы: \', ma:0:2, \', \', mb:0:2, \', \', mc:0:2);end.