const rong = 20;

gán giá trị cho hằng thì dùng dấu = chứ không phải dấu :=

writeln(dai); sai

phép xuất giá trị từ máy tính ta dùng readln(dai);

câu lệnh cv := (dai + rong)*2;

thiếu dấu ; và sai chỗ biểu thức do thiếu dấu *

sai chỗ chu vi do chưa khai báo biến chu vi, nên thay bằng cv

var dai,cv:real;

const rong:=20;→sai công thức gán giá trị cho hằng→const rong=20;

begin

$\textit{write (nhap chieu dai hinh chu nhat: ); →sai vì thiếu cặp dấu nháy đơn để in nội dung →write('nhap chieu dai hinh chu nhat: ');}$

writeln(dai);→sai vì đây là dòng nhập giá trị cho biến→readln(dai);

$\text{cv:=(dai+rong)2 →sai vì thiếu dấu nhân và dấu chấm phẩy ( trong pascal dấu nhân không được bỏ qua )→cv:=(dai+rong)*2;}$

writeln('chu vi=',chu vi);→sai vì xuất biến không tồn tại→writeln('chu vi=',cv);

readln

end.