`-` Các lỗi của chương trình :

`+` Từ khóa Uses sai chính tả 

`+` Từ Integer sai chính tả

`+` Sau Integer phải có chấm phẩy

`+` Khai báo biến tong sai cú pháp 

`+` Cú pháp gán biến i ở dòng 6 sai

`+` Sau từ khóa While là điều kiện, không phải câu lệnh

`+` Điều kiện phải là i ≤ 10 để vòng lặp chạy đến số 10

`+` Ở dòng 12, câu lệnh ghép kết thúc với từ End và dấu chấm phẩy

`+` Ở dòng 13, để in dòng chữ  "Tong so chia het cho 4:", ta đặt chúng trong dấu ngoặc kép

`+` Từ khóa end đặt cuối cùng của chương trình phải kết thúc bằng dấu chấm

⇒ Sửa :

Uses Crt; 
Var i, n : integer;
Tong : longint; 
Begin
Clrscr;
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.

Use Crt;        `->` Khai báo sai cú pháp

Var i, n : interger             `->` Thiếu ";" và sai tên từ khóa integer

Tong = longint;        `->` Khai báo sai cú pháp

Begin

Clrscr;

i=0;         `->` Gán sai cú pháp

tong:=0;

While i:=10 d        `->` Điều kiện trong while..do không thể là phép gán

Begin

If( i mod 4) = 0 then

tong:=tong+i;

i=i+1;

End.        `->` Cuối chương trình mới dùng End.

Writeln(Tong so chia het cho 4: ,tong);       `->` Dấu ' không hợp lệ

Readln;

End;        `->` Cuối chương trình phải dùng End.

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

Uses Crt;

Var i, n : integer;

Tong: longint;

Begin

Clrscr;

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.

$#Trumtinhoc$