Viết chương trình nhập vào 3 số thực dương a,b,c kiểm tra xem 3 số trên có tạo thành 3 cạnh của tam giác không, nếu có hãy tính diện tích tam giác theo công thức hê rông S=căn p(p-a)(p-b)(p-c)

uses crt;

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

begin

clrscr;

write('nhap ba so a, b, c : ');readln(a, b, c);

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

begin

writeln('ba so tao thanh tam giac ');

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

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

writeln('dien tich tam giac : ', s:3:1);

end

else writeln('ba so khong tao thanh tam giac ');

readln

end.

Program TAMGIAC;
Uses crt;
Var a,b,c,s,p : real;
Begin
    Clrscr;
    Write('a = ');readln(a);
    Write ('b = ');readln(b);
    Write('c = ');readln(c);
    If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
    begin
        p:=(a+b+c)/2;
        s:=sqrt(p*(p-a)*(p-b)*(p-c));
        Writeln('Chu vi tam giac: ',2*p:4:2);
        Writeln('Dien tich tam giac: ',s:4:2);
    end
    else
    write(a:2:1,', ',b:2:1,', ',c:2:1,' khong phai la ba canh cua tam giac');
    Readln;
End.