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

program function1;
uses crt;
var a, b, c, a1, b1, c1: integer;
ma, mb, mc, m:real;
function f(a,b,c:integer):real;
begin
m:=1/2*(sqrt(2*sqr(b)+2*sqr(c)-sqr(a)));
f:=m;
 end;
 begin
 clrscr;
  write('a='); readln(a1);
  write('b='); readln(b1);
  write('c='); readln(c1);
       ma:=f(a1,b1,c1);
       mb:=f(b1,c1,a1);
       mc:=f(c1,a1,b1);
       writeln('MedianI=',ma:4:3,'    ',mb:4:3,'   ',mc:4:3);
 
  readkey;
end.

program proc;
uses crt;
procedure Med(a,b,c:integer;var m:real);
begin
m:=1/2*(sqrt(2*sqr(b)+2*sqr(c)-sqr(a)));
end;
var a1,b1,c1:integer;
    ma,mb,mc:real;
begin
clrscr;
write('a='); readln(a1);
write('b='); readln(b1);
write('c='); readln(c1);
Med(a1,b1,c1,ma);
Med(b1,c1,a1,mb);
Med(c1,a1,b1,mc);
writeln('MedianI=',ma:0:3,'    ',mb:0:3,'   ',mc:0:3);
readkey
end.