Mọi người xem mình làm đúng khônng ạ ,nếu sai thì sửa hộ em với Đề là viết chương trình tính chu vi hình chữ nhật 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.

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.