Вот так:
Код:
VAR
a,b,c,Ma,Mb,Mc:Real;
Procedure Med_Length(Aml,Bml,Cml:Real;
var MAml:Real; var MBml:Real; var MCml:Real);
begin
MAml:=0.5*SQRT(2*SQR(Bml)+2*SQR(Cml)-SQR(Aml));
MBml:=0.5*SQRT(2*SQR(Aml)+2*SQR(Cml)-SQR(Bml));
MCml:=0.5*SQRT(2*SQR(Aml)+2*SQR(Bml)-SQR(Cml));
end;
BEGIN
Write('a= ');
ReadLn(a);
Write('b= ');
ReadLn(b);
Write('c= ');
ReadLn(c);
Med_Length(a,b,c,Ma,Mb,Mc);
WriteLn('Ma=',Ma:10:5);
WriteLn('Mb=',Mb:10:5);
WriteLn('Mc=',Mc:10:5);
ReadLn;
END.