program BT;

uses crt;

var a,b,c,p,S: real;

Begin

         clrscr;

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

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

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

         if (a>0) and (b>0) and (c>0) then

            if (a+b > c) and (b+c > a) and (a+c > b) then

            begin

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

                     S:=p*(p−a)*(p−b)*(p−c);

                     write('Dien tich tam giac = ',sqrt(S):2:2);

            end

         else write(a:2:2,', ',b:2:2,', ',c:2:2,' khong la 3 canh tam giac');

         readln

End.

Program BT;
uses CRT ;
Var a,b,c,s,p : real;
Begin
clrscr;
repeat
Write ('Nhap A : ');Readln(a);
until a > 0;
repeat
Write ('Nhap B : ');Readln(b);
until b > 0;
repeat
Write ('Nhap C : ');Readln(c);
until c > 0;
If (a+b > c) and (b+c > a) and (a+c > b) then 
Begin
p := (a+b+c)/2;
s := p*(p-a)*(p-b)*(p-c);
Write ('Dien tich tam giac la : ',sqrt(s):2:4)
end
else Write ('Ba canh ',a,' , ',b,' , ',c,' khong la 3 canh cua 1 tamg giac');
end.

Bài này sử dụng kiến thức về công thức Heron nha bạn (Có trên Wikipedia đấy )