Bài 1 :viết chương trình. tính tổng các cặp số nguyên được lưu trữ trong tệp 'INPUT.TXT' và ghi kết quả vào tệp ' KETQUA.TXT' Bài 2 : viết chương trình tính diện tích các hình chữ nhật,với các cặp số nguyên được lưu trữ trong tệp ' INPUT.TXT' là chiều dài và chiều rộng của hình chữ nhật, sau đó ghi kết quả vào tệp ' KETQUA.TXT'

1/

var f1,f2:text;
    a,b:integer;
begin
   assign(f1,'INPUT.TXT'); reset(f1);
   assign(f2,'KETQUA.TXT'); rewrite(f2);
   while not eof(f1) do
   begin
      read(f1,a,b);
      write(f2,a+b);
   end;
   close(f1); close(f2);
end.

2/

var f1,f2:text;
    cd,cr,s:real;
begin
   assign(f1,'INPUT.TXT'); reset(f1);
   assign(f2,'KETQUA.TXT'); rewrite(f2);
   while not eof(f1) do
   begin
      read(f1,cd,cr);
      s:=cd*cr;
      write(f2,s:4:2);
   end;
   close(f1); close(f2);
end.