{Bài 5 : Tính tam giác: Nhập vào ba số a,b,c bất kì. Kiểm tra xem nó có thể là độ dài ba cạnh hay không, nếu không thì in ra màn hình ' Khong la ba canh cua mot tam giac'. Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình.}
program cv_dt_tamgiac;
uses crt;
var a,b,c,s,p: real;
BEGIN
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('Ba so tren lap thanh do dai 3 canh cua tam giac');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Chu vi la: ',2*p:0:2);
writeln('Dien tich la: ',s:0:2);
end else
writeln('Ba so tren khong la do dai 3 canh cua tam giac');
READLN;
END.