viết chương trình đọc 2 số nguyên (là 2 cạnh hình chữ nhật) từ tệp HCN.INT. Tính diện tích hình chữ nhật và ghi kết quả vào tệp HCN.OUT.

Const Fi='HCN.INP';
      Fo='HCN.OUT';
Var f,g: text;
    a,b,s: real;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,a,b);
        s:=a*b;
        Write(g,s:0:2);
        Close(f);
        Close(g);
End.

uses crt;
var f:text;
    length,width:longint;
begin
    assign(f,'HCN.INP');reset(f);
        read(f,length,width);
    close(f);
    assign(f,'HCN.OUT');rewrite(f);
        write(f,length*width); 
    close(f);
end.