program RectangleArea;

uses crt;

{ Hàm để tính tích hai số thực }
function Multiply(a, b: Real): Real;
begin
  Multiply := a * b;
end;

var
  length, width, area: Real;

begin
  clrscr;
  
  { Nhập chiều dài của hình chữ nhật }
  Write('Nhap chieu dai cua hinh chu nhat: ');
  Readln(length);
  
  { Nhập chiều rộng của hình chữ nhật }
  Write('Nhap chieu rong cua hinh chu nhat: ');
  Readln(width);
  
  { Tính diện tích bằng cách sử dụng hàm Multiply }
  area := Multiply(length, width);
  
  { In diện tích ra màn hình }
  Writeln('Dien tich cua hinh chu nhat la: ', area:0:2);
  
  Readln;
end.