Cho tệp d:\dl.txt chứa các số nguyên dương, mỗi số cách nhau1 dấu cách. Cứ mỗi cặp 3 số tương ứng là chiều dài 3 cạnh hình tam giác. Viết chương trình tính Chu vi, diện tích của hình tam giác rồi ghi 2 thông tin đó trên 1 dòng cách nhau 1 dấu ‘_’ vào tệp d:\kq.doc. Mọi người giúp e với e đang cần gấp ạ....

     Const Ni='Dl.TXT';

      Nh='KQ.DOC';

      Var f,g: text;

      a,b,c,s,p: extended;

       Begin

        Assign(f,Ni); Reset(f);

        Assign(g,Nh); Rewrite(g);

        While not eof(f) do

        Begin

        Readln(f,a,b,c);

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

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

         Writeln(g,'CV: ',2*p:0:2,' DT: ',s:0:2);

        End;

        Close(f);

        Close(g);

         End.

program chuvi_dientich;

var f, g: text; CV, a, b, c: word; S, p: real;

begin

     assign(f,'d:\dl.txt'); reset)f);

     assign(g,'d:\kq.doc'); rewrite(g);
     while not eof(f) do

          begin

             readln(f,a,' ',b,' ',c);

             CV:=a+b+c;

             p:=CV/2;

             S:=sqrt(p*(p-a)*(p-b)*(p-c)); {cong thuc Heron}

             writeln(g,CV:2,' ',S:0:2);

          end;

     close(f); close(g)

end.