Tính chu vi và diện tích hình chữ nhật:      
Program cv_dt_hcn;
Uses crt;
Var a, b, S, CV: real;
Begin
     Clrscr;
     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.
Cảm ơn bạn đã tham khảo bài mình. Ủng hộ mình 1 like nha!!!