Viết chương trình tính chu vi và diện tích hình chữ nhật

Viết chương trình tính chu vi và diện tích hình chữ nhật

Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
     Write('Nhap chieu dai:'); readln(a);
     Write('Nhap chieu rong:'); readln(b);
     S := a*b;
     CV := (a+b)*2;
     Writeln('Dien tich hinh chu nhat la:',S);
     Writeln('Chu vi hinh chu nhat la:',CV:10:2);
     readln;
end.

Ở đây: +a,b: chiều dài các cạnh của hình chữ nhật

       +S: là diện tích

       +CV: là chu vi