kiểm tra lại thử code CHỨ CODE TRÊN THÂY SAI RỒI BẠN
Var a,b,S,P: real;
Begin
Clrscr;
Writeln(‘ TINH DIEN TICH VA CHU VI HINH CHU NHAT:’);
Write(‘Nhap chieu dai=’); readln(a);
Write(‘Nhap chieu rong=’);readln(b);
S:=a*b;
P:=(a+b)*2;
Writeln(‘Dien tich hinh chu nhat la:’,S);
Writeln(‘Chu vi hinh chu nhat:’,P);
Readln;
End.