Viết chương trình ghi vào tep 11a5.txt trong ổ đĩa D ghi 100 dòng I love you. Mỗi dòng có đnahs số thứ tự ở đầu dòng

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)

uses crt;

var i : byte; f1 : text;

begin

clrscr;

assign(f1, '11a5.txt'); rewrite(f1);

for i := 1 to 100 do

writeln(f1, i:3,'. I love you');

close(f1);

readln

end.