Nhập vào chiều dài chiều rộng của hình chữ nhật in ra chu vi diện tích hình chữ nhật

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))

mik gửi bạn cách code ra cả bộ tính của hình chữ nhật có tính chu vi ạ 

program hinh_chu_nhat;

uses crt;

Var chieudai, chieurong, chuvi, dientich : Integer;

Begin

clrscr;

write('Ban hay nhap chieu dai:'); Readln(chieudai);

write('Ban hay nhap chieu rong:'); Readln(chieurong);

chuvi:= (chieudai + chieurong)*2;

dientich:= chieudai*chieurong;

writeln('Chu vi hinh chu nhat la:', chuvi);

writeln('Dien tich hinh chu nhat la:', dientich);

readln;

end.