Viết chương trình để đọc chiều dài a và rộng b từ tệp ‘Dientich.txt’ và ghi kết quả tính diện tích hình chữ nhật vào tệp ‘Ketqua.txt’

Const Fi='Dulieu.TXT';
      Fo='Ketqua.TXT';
Var f,g: text;
    a,b: extended;

Function dientich(a,b: extended): extended;
Begin
        dientich:=a*b;
End;

Function chuvi(a,b: extended): extended;
Begin
        chuvi:=(a+b)*2;
End;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,a,b);
        Writeln(g,dientich(a,b):0:2);
        Write(g,chuvi(a,b):0:2);
        Close(f);
        Close(g);
End.

var
f: text;
 a,b: integer;
 begin
        assign (f,'dientich.txt');
        reset (f);
        readln (f,a,b);
        close (f);
        assign (f,'ketqua.txt');
        rewrite (f);
        writeln (f,a*b);
        close (f);
 end.