cho tệp DULIEU.TXT gồm nhiều dòng, mỗi dòng gồm 3 số nguyên cách nhau bởi một dấu cách. hãy viết chương trình đọc dữ liệu từ tệp DULIEU.TXT, tính tổng các số trên mỗi hàng và in ra kết quả ra tệp DULIEU.TXT . b) kiểm tra xem 3 số trên mỗi dòng có phải là độ dài 3 cạnh của tam giác cân không và ghi kết quả vào tệp DULIEU.TXT

const fi='dulieu.txt';fo='ketqua.txt';var i,t:integer;f1,f2:text;a:array[1..9]of integer;beginassign(f1,fi); reset(f1);assign(f2,fo); rewrite(f2);t:=0;for i:=1 to 9 dobeginread(f1,a[i]);t:=t+a[i];end;writeln(f2,t);close(f1);close(f2);end.

Kết quả thì ghi vào tệp KETQUA.TXT nha, chứ không trùng với tệp DULIEU.TXT 

program bai_giai;
var f,g:text;
    a,b,c:integer;
begin
    Assign(f,'DULIEU.TXT');  reset(f);
    Assign(g,'KETQUA.TXT');  rewrite(g);
    while not eof(f) do
        begin
            readln(f,a,b,c);
            write(g,a+b+c);
            if (a=b) or (b=c) or (a=c) then writeln(g,' PHAI') else writeln(g,' KHONG');
        end;
    close(f); close(g);
end.