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

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.