hãy viết chương trình nhập vào 2 số a và b là 2 cạnh của hình chữ nhật sau đó tính chu vi diện tích rồi hiển thị kết quả trên màn hình

uses crt;

  var s, cv, a, b: real;

begin

 clrscr;

 write(‘Nhap a, b: ‘); readln(a,b);

 s:=a*b;

 cv:=(a+b)*2;

 writeln(‘Chu vi hinh chu nhat: ‘, cv);

 writeln(‘Dien tich hinh chu nhat: ‘, s);

 readln

end.