Viết trương trình nhập 3 cạnh của một tam giác . Nếu thỏa mản , đưa ra kết quả CHU VI DIÊN TÍCH tam giác đó Biết :P=(a+b+c)/2 S=căn p(p-a)(p-b)(p-c)

Program NN;
Uses crt;
Var a,b,c,p,s: extended;
Begin
        Clrscr;
        Write('Nhap a,b,c: '); Readln(a,b,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: ',2*p:0:2);
                Write('Dien tich: ',s:0:2);
        End
        Else Write('Khong phai do dai 3 canh tam giac');
        Readln
End.

uses crt;

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

begin

clrscr;

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

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

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

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

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

writeln('Chu vi = ', a + b + c : 2 : 2);

writeln('Dien tich = ', s : 2 : 2);

end;

readln

end.