program Tin_hoc;
uses crt;
var cd,cr,cv,dt:real;
begin
clrscr;
write('Chieu dai = ');readln(cd);
write('Chieu rong = ');readln(cr);
cv:=(cd+cr)*2;
dt:=cd*cr;
writeln('Chu vi cua hinh chu nhat la: ',cv:0:2);
writeln('Dien tich cua hinh chu nhat la: ',dt:0:2);
readln;
end.