các bạn ơi giúp tớ viết chương trình tin lớp 11 với. Đề bài là Tính diện tích tam giác biết 3 độ dài 3 cạnh ABC

program tam_giac;

uses crt;

var a,b,c,S:real;

begin

clrscr;

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

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

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

S:=(p*(p-a)*(p-b)*(p-c));

writeln('dien tich hinh tam giac la:',S:10:2);

readln;

end.

uses crt;
var a,b,c:longint;dt:real;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  write('c=');readln(c);
  if(a+b>=c)and(a+c>=b)and(b+c>=a)then
        begin
         dt:=(a+b+c)/2;
         writeln('dien tich hinh tam giac do la:',dt);
        end else writeln('canh a,b,c ko phai la hinh tam giac');
 readln;
end.
chúc bạn học tốt cho mình xin hay nhất ạ