Viết chương trình đọc ra từ tệp bt1.int 3 số thực a, b, c rồi ghi vào tệp bt2.out chu vi và diện tích của tam giác tạo bởi a, b, c nếu a, b, c là 3 cạnh của tam giác và ngược lại ghi vào tệp bt2.out là 3 cạnh a, b, c không là 3 cạnh của tam giác

program LN;
uses crt;
var f,f1:text;
    a,b,c:integer;
    p,s:real;
begin
assign(f,'bt1.inp');reset(f);
assign(f1,'bt2.out');rewrite(f1);
read(f,a,b,c);
if (a+b>c) or (b+c>a) or (a+c>b) then
        begin
        p:=(a+b+c)/2;
        s:=sqrt(p*(p-a)*(p-b)*(p-c));
        end
        else writeln(f1,'3 canh a,b,c khong la 3 canh cua tam giac');
writeln(f1,'cv: ',p*2:2:0,'; dien tich: ',s:2:0);
close(f1);
end.

uses crt;
var f1,f2:text;
    a,b,c:integer;
    p,s:real;
begin
   assign(f1,'bt1.inp'); reset(f1);
   assign(f2,'bt2.out'); rewrite(f2);
   read(f1,a,b,c);
   if (a+b>c) or (b+c>a) or (a+c>b) then
   begin
      p:=(a+b+c)/2;
      s:=sqrt(p*(p-a)*(p-b)*(p-c));
   end
   else writeln(f2,'3 canh a,b,c khong la 3 canh cua tam giac');
   writeln(f2,'Chu vi la: ',p*2:4:2,',dien tich la: ',s:4:2);
   close(f1); close(f2);
end.