program chuvidientich;
uses crt;
var a,b:integer;
begin
write('Nhap chieu dai hinh chu nhat:');
read(a);
write('Nhap chieu rong hinh chu nhat:');
read(b);
write('Chu vi hinh chu nhat la:',(a+b)*2);
write('Dien tich hinh chu nhat la:',a*b);
readln;
end.
Chúc bạn học tốt ^^