Var i,n: integer      `->` var i,n: integer;

tong=longint;     `->`  tong: longint;

begin

i=0; tong:=0;   `->` i:=0; tong:=0;

while i:=10 do    `->` while i<=10 do

begin                 

if (i mod 4)=0 then

tong:=tong+i;

i=i+1;        `->` i:=i+1;

end.    `->` end;

writeln (Tong so chia het cho 4:,tong);  `->` writeln (Tong so chia het cho 4: ',tong);

readln;

end;  `->` end.

------------------

sửa lại hoàn chỉnh:

var i,n: integer;

tong: longint;

begin

i:=0; tong:=0;

while i<=10 do

begin                 

if (i mod 4)=0 then

tong:=tong+i;

i:=i+1;

end;

writeln (Tong so chia het cho 4: ',tong);

readln;

end.

$\text{1. Var i, n : integer}$

$\text{⇒ Thiếu chấm phẩy cuối lệnh}$

$\text{⇒ Sửa: Var i, n : integer;}$

$\text{2. Tong = longint;}$

$\text{⇒ Sai cú pháp, sai dấu " = "}$

$\text{⇒ Sửa: Tong : longint;}$

$\text{3. i = 0; tong := 0;}$

$\text{⇒ Sai dấu gán cho biến i}$

$\text{⇒ Sửa: i := 0; tong := 0;}$

$\text{4. While i := 10 do}$

$\text{⇒ Sai điều kiện i := 10, i := 10 không có gía trị đúng hoặc sai}$

$\text{⇒ Sửa: While i <= 10 do}$

$\text{5. i = i + 1;}$

$\text{⇒ Sai dấu gán cho biến i}$

$\text{⇒ Sửa: i := i + 1;}$

$\text{6. End. (End thứ nhất)}$

$\text{⇒ Sai dấu kết thúc sau từ khoá End }$

$\text{⇒ Kết thúc sau End của câu lệnh ghép là " ; "}$

$\text{⇒ Sửa: End;}$

$\text{7. Writeln(Tong so chia het cho 4 : ', tong);}$

$\text{⇒ Thiếu dấu nháy đơn giữa đầu xâu và cuối xâu kí tự}$

$\text{⇒ Sửa: Writeln('Tong so chia het cho 4 : ', tong);}$

$\text{8. End; (End thứ hai)}$

$\text{⇒ Sai dấu kết thúc sau từ khoá End }$

$\text{⇒ Sau từ khoá kết thúc chương trình là " . "}$

$\text{⇒ End.}$