program bt;
uses crt;
var a, b, C, S: real;
begin
clrscr;
write('Nhap do dai hai canh cua HCN la:'); readln(a,b);
C:= (a+b)*2;
S:= a*b;
writeln('Chu vi hinh chu nhat la=', C:2:3);
writeln('Dien tich hinh chu nhat la=', S:2:3);
readln
end.
Xin câu trả lời hay nhất ạ :3