#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ả thêm chiều dài và rộng ạ 

- Xác định bài toán :

+ Input : Chiều dài, rộng

+ Output : Chu vi, diện tích hình chữ nhật

- Mô tả thuật toán :

+ Bước 1 : Nhập chiều dài (a), chiều rộng (b)

+ Bước 2 : Cv ← (a + b) * 2, S ← a * b

+ Bước 3 : Đưa ra giá trị Cv, S

+ Bước 4 : Kết thúc

- Viết chương trình :

uses crt;

var a, b, s, cv : integer;

begin

clrscr;

write('Nhap chieu dai, chieu rong = '); readln(a, b);

cv := (a + b) * 2;

s := a * b;

writeln('Chu vi hinh chu nhat = ', cv);

writeln('Dien tich hinh chu nhat = ', s);

readln

end.