Viết chương trình tính diện tích tam giác có 3 cạnh là :a,b,c ( được nhập từ bàn phím ) a, hướng dẫn -Nhập 3 cạnh c ủatam giác vào biến a,b,c -Nửa chu vi của tam giác p=(a+b+c)/2 - diện tích của tam giác :s =Căn bậc p(p-a)(p-b)(p-c)

uses crt;

  var a, b, c, 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 tam giac la: ', s);

  readln

end.