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

uses crt;
var a,b,c:integer; ma,mb,mc:real;
procedure med(a,b,c:integer);
var ma,mb,mc:real;
begin
ma:=sqrt(2*sqr(b)+2*sqr(c)-sqr(a))/2;
mb:=sqrt(2*sqr(a)+2*sqr(c)-sqr(b))/2;
mc:=sqrt(2*sqr(b)+2*sqr(a)-sqr(c))/2;
end;
begin
     write('a,b,c');
     read(a,b,c);
     med(a,b,c);
     writeln('ma=',ma,'mb=',mb,'mc=',mc);
end.

uses crt;
var a,b,c:integer; ma,mb,mc:real;
procedure med(a,b,c:integer);
var ma,mb,mc:real;
begin
ma:=sqrt(2*sqr(b)+2*sqr(c)-sqr(a))/2;
mb:=sqrt(2*sqr(a)+2*sqr(c)-sqr(b))/2;
mc:=sqrt(2*sqr(b)+2*sqr(a)-sqr(c))/2;
end;
begin
     write('a,b,c');
     read(a,b,c);
     med(a,b,c);
     writeln('ma=',ma,'mb=',mb,'mc=',mc);
end.

uses crt;
var a,b,c:real;
var ma,mb,mc:real;
procedure med(a,b,c:real;var ma,mb,mc:real);
begin
ma:=sqrt(2*sqr(b)+2*sqr(c)-sqr(a))/2;
mb:=sqrt(2*sqr(a)+2*sqr(c)-sqr(b))/2;
mc:=sqrt(2*sqr(b)+2*sqr(a)-sqr(c))/2;
end;
begin
repeat
  write('a,b,c: ');
   readln(a,b,c);
    if (a>=b+c)or(b>=a+c)or(c>=a+b) then writeln('Ýòî íå ñòîðîíû òðåóãîëüíèêà')
until (a<b+c)and(b<a+c)and(c<a+b);
 
     med(a,b,c,ma,mb,mc);
     med(ma,mb,mc,ma,mb,mc);
     writeln('m1= ',ma);
     writeln('m2= ',mb);
     writeln('m3= ',mc);
end.