Program HOC24;
var dai,rong: integer;
p,s: longintl
begin
write('Nhap chieu dai cua hinh chu nhat: '); readln(dai);
write('Nhap chieu rong cua hinh chu nhat: '); readln(rong);
s:=a*b;
p:=(a+b)*2;
writeln('Chu vi hinh chu nhat la: ',p);
write('Dien tich hinh chu nhat la: ',s);
readln
end.