Câu 4.Chương trình sau. Hãy tìm những lỗi sai và sửa lại cho đúng. Program H C_N; Uses Crt; Vara,b,s,cv:= real; Begin While('Nhapchieudai='); readln(a); Write('Nhapchieurong=');readln(); s=axb; cv:(a+b):2; Writeln('Dientichhinhchunhat la:’,s:6:2); Writeln('Chu vi hinhchu nhat:',cv:6:2); Readln; End.

Program H     C_N;

`->` Tên chứa khoảng trắng

 `=>` Program H_C_H ;
Uses Crt;
Vara,b,s,cv:= real;

`->` Giữa từ khóa và tên biến không có khoảng trắng

`->` Trước giá trị là dấu hai chấm

`=>`Var  a,b,s,cv :  real ;
Begin 
While('Nhapchieudai='); readln(a); 

`->` Từ while dùng cho câu lệnh lặp với số lần không biết trước

`=>` Write('Nhapchieudai='); readln(a); 
Write('Nhapchieurong=');readln(); 

`->` Trong cậu lệnh Readln chưa có tên biến để lưu biến

`=>`Write('Nhapchieurong=');readln(b); 
s=axb; 

`->` Câu lệnh gán  ' := ' chứ không phải phép so sánh ' = '

`->` Sai dấu nhân

`=>`s := a*b; 

cv:(a+b):2;

`->` Sai cú pháp câu lệnh gán

`=>`cv:=(a+b):2;
Writeln('Dientichhinhchunhat la:’,s:6:2);
Writeln('Chu vi hinhchu nhat:',cv:6:2); 
Readln; 
End.