Bạn viết lại chương trình theo mình nhé!.
program Vi_du;
uses crt;
var a, b, c, s: integer;
begin
write('Chieu dai a = '); readln(a);
write('Chieu dai b = '); readln(b);
s:=a*b;
c:=(a+b)*2;
write('Dien tich hinh chu nhat la: ', s);
write('Chu vi hinh chu nhat la: ', c);
readln
end.