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

PASCAL ABC
var a, b, c, ma, mb, mc: real;
begin
Проверяем правильный ввод данных:
writeln(Введите стороны треугольника:);
repeat
writeln;
write( a = );
readln(a);
if a lt;= 0 then write(Сторона a обязана быть положительной!);
until a gt; 0;
repeat
writeln;
write( b = );
readln(b);
if b lt;= 0 then write(Сторона a обязана быть положительной!);
until b gt; 0;
repeat
writeln;
write( c = );
readln(c);
if c lt;= 0 then write(Сторона a обязана быть положительной!)
else
if c gt;= a + b then write(Введите с меньше, чем , a + b);
until c lt; 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.