program ct;
uses crt;
var a,b,c,chuvi,dientich: real;
begin
readln(a,b,c);
if (a+b > c) and (a + c > b) and (a + b > c) then
begin
chuvi := (a + b + c)/2;
dientich := sqrt(chuvi*(chuvi - a)*(chuvi - b)*(chuvi - c));
writeln(dientich:0:6);
end else
begin
writeln('No Solution');
end;
end.

*Áp dụng công thức tính diện tích tam giác từ ba cạnh góc vuông theo công thức của Heron. Chúc bạn học tốt/

uses crt;

var a,b,c: integer;

p,s: real;

begin

clrscr;

write ('Nhap a: ');  readln (a);

write ('Nhap b: ');  readln (b);

write ('Nhap c: ');   readln (c);

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln ('Dien tich la: ',s:1:6);

readln;

end.

-----------------------------------------------------------------------

Giải thích: 

Áp dụng công thức Heron: `S=sqrt(p(p-a)(p-b)(p-c))`

Trong đó: 

`p` là nửa chu vi của tam giác

`S` là diện tích của tam giác

`a,b,c` là độ dài 3 cạnh của tam giác