uses crt;
var cd,cr,chuvi,dientich:integer;
begin
clrscr;
write('Nhap chieu dai: ');readln(cd);
write('Nhap chieu rong: ');readln(cr);
chuvi : =2*(cd+cr);
dientich : = cd*cr;
writeln('Chu vi cua HCN: ',chuvi);
writeln('Dien tich cua HCN: ',dientich);
readln;
END.