Trong tệp Bai_tap. txt có chứa các cặp số nguyên tương ứng với các cạnh của hình chữ nhật. Hãy tính diện tích và ghi kết quả vào tệp KQ.txt Giúp mình với ạ! Mình cảm ơn😍

uses crt;
var f1,f2:text;
    a,b:longint;
const fi='Bai_tap.txt';
      fo='KQ.txt';
begin
    assign(f1,fi);reset(f1);
    assign(f2,fo);rewrite(f2);
    while not(eof(f1)) do
      begin
          readln(f1,a,b);
          writeln(f2,a*b);
      end;
    close(f1);close(f2);
end.

uses crt;
var f,f1:text; a,b:longint;
begin
clrscr;
   assign(f,'Bai_tap.txt');reset(f);
   assign(f1,'KQ.txt');rewrite(f1);
      while not(eof(f)) do 
         begin
            readln(f,a,b);
            writeln(f1,a*b); 
         end;
   close(f1);     
   close(f);
end.