xuất ra màn hình chu vi và diện tích hình tam giác với cạnh abc được nhập từ bàn phím lưu ý abc là số nguyên. HD: nửa chu vi P:=(a+b+c)/ diện tích sqrt(p*(p-a)*(p-b)*(p-c)

program tam_giac;

uses crt;

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

begin

clrscr;

write('nhap do dai canh a:'); readln(a);

write('nhap do dai canh b :'); readln(b);

write('nhap do dai canh c :'); readln(c);

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

writeln('day la do dai ba canh tam giac');

cv := a + b + c;

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

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

writeln('chu vi tam giac la :', cv);

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

if (a+b<=c) or (b+c<=a) or (a+c<=b) then writeln('khong la ba canh cua mot tam giac');

readln

end.