Nhập vào độ dài 3 cạnh của tam giác và tính diện tích của tam giác đó biết độ dài 3 cạnh được nhập vào từ bàn phím

program tinh_dien_tich;

uses crt;

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

begin

write('Nhap canh 1 = '); read(a);

write('Nhap canh 2 = '); read(b);

write('Nhap canh 3 = '); read(c);

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

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

writeln('Dien tich tam giac là: ',s:2:2);

readln;

end.

Program Hotboy;

uses crt;

Var a,b,c,p,S: real;

Begin

     clrscr;

     Write('Nhap 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.