viết chương trình nhập 3 số bất kì kiểm tra xem ba số đó có phải là 3 cạnh của tam giác không nếu thỏa mãn tam giác ba cạnh của tam giác thì tính và in ra màn hình diện tích tam giác nếu không thì in ra màn hình 3 số không thỏa mãn ba cạnh của tam giác, biết công thức diện tích tam giác là P:= (a + b + c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c))

var a,b,c:longint;

     s,p:real;

begin

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

if a+b>c then write('Khong phai la tam giac') else

if a+c>b then write('Khong phai la tam giac') else

if b+c>a then write('Khong phai la tam giac') else 

writeln('La tam giac');

p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write('Dien tich tam giac la: ',s:0:4);

readln;

end.

Uses crt;
Var a,b,c,p,s: extended;
Begin
        Clrscr;
        Write('Nhap do dai 3 canh a, b, c: '); Readln(a,b,c);
        p:=(a+b+c)/2;
        s:=sqrt(p*(p-a)*(p-b)*(p-c));
        Write('Dien tich tam giac la: ',s:10:2);
        Readln
End.