Program IQ_VO_CUC;

Uses crt;

Var a, b, S,CV: real;

Begin      

Write('Chieu dai:'); readln(a);      

Write('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.

Source Code Tính Chu Vi Và Diện Tích Hình Chữ Nhật 

#Chiều Dài
length = float(input("Nhập Chiều Dài: "))
#Chiều Rộng
width = float(input("Nhập Chiều Rộng: "))
#Chu Vi
print("\nChu Vi Hình Chữ Nhật: " + str((length + width) * 2))
#Diện Tích
print("Diện Tích Hình Chữ Nhật: " + str(length * width))