1)      var a, b, P : Real ;
2)      Begin
3)      Writeln ('Nhap do dai chieu rong'); Readln (a);
4)      Writeln ('Nhap do dai chieu dai'); Readln(b);
5)      P :=(a*b)*2 ;
6)      Writeln('chu vi hinh chu nhat la :', P);
7)      Readln
8)      End.

* Sửa lỗi :

Dòng 5 : công thức tính chu vi hình vuông : P := (a + b)*2

* Chương trình :

var a, b, P : Real ;
Begin
Writeln ('Nhap do dai chieu rong'); Readln (a);
Writeln ('Nhap do dai chieu dai'); Readln(b);
P := ( a + b) *2  ;
Writeln('chu vi hinh chu nhat la :', P);
Readln
End.

Chu vi hình chữ nhật là 

P:=(a+b)*2; 

nhưng mà cậu ghi là P:=(a*b)*2; nên sai á nha cậu sửa lại chỗ đó là được rồi nha

Chúc bạn học tốt!