Phải hiển thị kết quả so sánh của chu vi và diện tích của hình chữ nhật nữa mà bạn?

uses crt;
var S, P, d, r: real;
begin
clrscr;
write ('Chieu dai ='); readln (d);
write ('Chieu rong ='); readln (r);
S := d * r;
writeln ('Dien tich hinh chu nhat la:', S:6:2);
P := (d + r) * 2;
writeln ('Chi vi hinh chu nhat la:', P:6:2);
if S > P then write ('Dien tich lon hon chu vi') else if P > S then write ('Chu vi lon hon dien tich') else write ('Chu vi va dien tich bang nhau');
readln;
end.