program HCN
uses crt;
var cd,cr,cv,dt:integer;
begin
clrscr;
write('Nhap chieu dai: '); readln(cd);
write('Nhap chieu rong: '); readln(cr);
cv:=(cd+cr)*2;
dt:=cd*cr;
writeln('Chu vi HCN la: ',cv);
writeln('Dien tich HCN la: ',dt);
readln
end.
Bài này chiều dài và chiều rộng chỉ là số nguyên thôi nha!