Viết chương trình sử dụng chương trình con (hàm và thủ tục) tính diện tích hình chữ nhật biết độ dài các cạnh được đọc từ tệp input.txt kết quả được ghi vào tệp output.txt

program LN;
uses crt;
var a,b:integer;
    f,g:text;
function dt(x,y:integer):integer;
var S:integer;
begin
S:=x*y;
dt:=S;
end;
procedure nhap_xuat;
begin
assign(f,'input.txt');reset(f);
assign(g,'output.txt');rewrite(g);
read(f,a,b);
write(g,'dien tich hinh chu nhat la : ',dt(a,b));
close(g);
end;
begin
nhap_xuat;
end.

var f1,f2:text;

      a,b:real;

procedure xuat();

var t:real;

begin

        t:=a*b;

        writeln(f2,t:0:3);

end;

begin

        assign(f1,'input.txt');reset(f1);

        assign(f2,'output.txt');rewrite(f2);

        readln(f1,a,b);

        xuat();

        close(f1);close(f2);

end.