Viết chương trình nhập vào chiều dài và chiều rộng hình chữ nhật từ bàn phím, in ra màn hình chu vi và diện tích của hình chữ nhật đó?

uses crt;

var dai,rong,cv,dt:real;

begin

clrscr;

write('nhap chieu dai:'); readln(dai);

write('nhap chieu rong:'); readln(rong);

if (dai>0) and (rong>0) and (dai>=rong) then

begin

cv:=(dai+rong)*2;

dt:=dai*rong;

writeln('chu vi hinh chu nhat la: ',cv:4:2);

writeln('dien tich hinh chu nhat la: ',dt:4:2);

end

else writeln('vui long nhap lai');

readln;

end.