viết phương trình dữ liệu từ tệp inp tập xác định (gồm nhiều dòng mõi dòng chứa ba số nguyên a1,a2,a3 các số cách nhau một dấu cách ). tính tổng của ba số nguyên trên một dòng và ghi kết quả ra tệp out tập xác định mỗi dòng ghi tổng của 3 số nguyên ở dòng dữ liệu vào tương ứng

uses crt;

var i: longint;
       f,o: text;

       a,b,c: longint;

begin 

Assign(f,'tong.inp');  reset(f);

assign(o,'tong.out');  rewrite(o);

while not eof(f) do 

   begin 

     readln(f,a,b,c);

     writeln(o,a+b+c);

   end;

close(f);  close(o);

readln

end.

uses crt

var i: longint
       f,o: text

       a,b,c: longint

begin 

Assign(f,'tong.inp')  reset(f)

whole not eof(f) do 

   begin 

     readeln(f,a,b,c)

     writein(o,a+b+c)

   end

cuối dòng có chấm phẩy