program ctrinh1;
var x,y,dientich,chuvi:integer;
begin
write('hay nhap chieu dai cua hinh chu nhat:');
readln(x);
write('hay nhap chieu rong cua hinh chu nhat');
readln(y);
dientich:=x*y;
write('hay nhap chieu dai cua hinh chu nhat:');
readln(x);
write('hay nhap chieu rong cua hinh chu nhat:');
readln(y);
chuvi:=(x+y)*2;
writeln('Vay chu vi hinh chu nhat la:',chuvi);
write('Vay dien tich hinh chu nhat la:',dientich);
readln;
end.