uses crt;

var a, b, c, pa, pb, pc : real;

begin

clrscr;

write('Nhap do dai 3 canh : '); readln(a, b, c);

pa := sqrt(b * c * (1 - (a * a) / sqr(b + c)));

pb := sqrt(a * c * (1 - (b * b) / sqr(a + c)));

pc := sqrt(a * c * (1 - (c * c) / sqr(a + c)));

writeln('Do dai phan giac thu 1 = ', pa : 2 : 1);

writeln('Do dai phan giac thu 2 = ', pb : 2 : 1);

writeln('Do dai phan giac thu 3 = ', pc : 2 : 1);

readln

end.

uses crt;
var a,b,c: integer;
    pg: real;
begin
clrscr;
write('Nhap canh 1: '); readln(a);
write('Nhap canh 2: '); readln(b);
write('Nhap canh 3: '); readln(c);
pg:=(2*b*c)/(b+c)*cos(a/2);
if (a+b>c) and (a+c>b) and (b+c>a) then
write('Do dai duong phan giac cua tam giac do la: ',pg)
else write('a,b,c khong la do dai cua tam giac');
readln
end.
$//baonamok114$