Heron

Lập trình để tính diện tích tam giác khi biết ba cạnh a, b, c ( Nhập từ bàn phím). Thông báo các trường hợp a, b,c không taọ thành tam giác
                                                                 Giải
Program B103Tinh_dien_tich_tam_giac;
Uses Crt;
Var
      p,a,b,c,s:Real;
BEGIN
      ClrScr;
      Write('Nhap ba canh cua tam giac: ');
      Write('a = '); Readln(a);
      Write('                           b = '); Readln(b);
      Write('                           c = '); Readln(c);
      p:=(a+b+c)/2;
      If (a + b > c) And (b + c > a) And (a + c > b) And (a > 0) And (b > 0) And (c > 0) Then
          Begin
                 s:=Sqrt(p*(p-a)*(p-b)*(p-c));
                 Write('=> Dien tich tam giac la S = ',s:6:1,'(Dvdt)');
          End
      Else
          Write(' -> Khong ton tai tam giac co 3 canh nhu tren!');
      Readln;
END.