viết chương trình tính chu vi và diện tích hình chứ nhật yêu cầu đưa ra thông báo là kích thước hình chữ nhật nếu nhập vào dữ liệu ko hợp lệ

try:
 #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))
except:
 print("lỗi thao tác")

uses crt;

var a,b: Integer;

      P,S: Real;

begin

clrscr;

writeln('Nhap chieu dai'); readln(a);

writeln('Nhap chieu rong'); readln(b);

P:=(a+b)*2;

S:=a*b;

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

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

readln

end.