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.
CHẤM ĐIỂM CHO MÌNH NHÉ! THANKS