Mình đánh dấu theo số thứ tự từ 1 xuống (bắt đầu từ program) cho bạn dễ đọc nhá!!

______________________________

(1) Sai vì thiếu dấu ";"

`=>` Sửa lại: Program bieu_thuc_so_hoc;

(3) Sai vì sai các dấu ";" và dư dấu "="

`=>` Sửa lại: a,c,b:integer;

(6) Sai vì thiếu dấu ";"

`=>` Sửa lại: Writeln('-Bieu thuc a=20-10                =',a:3);

(8) Sai vì thiếu dấu ";"

`=>` Sửa lại: Writeln('-Bieu thuc b=(10+5)*10-25=',b:3);

(10) Sai vì thiếu dấu ";" và cặp dấu nháy đơn

`=>` Sửa lại: Writeln('-Bieu thuc b=(10+5*10)-25=',b:3);

(12) Sai vì thiếu dấu ";" và cặp dấu nháy đơn

`=>` Sửa lại: Writeln('-Bieu thuc c=18 DIV 4*4  =',c:3);

(14) Sai vì thiếu dấu chấm

`=>` Sửa lại: End.

___________________________________________________

Kết quả chạy ct(ảnh ở dưới nha)

- Dòng 1 :

+ Khai báo sai tên chương trình

+ Thiếu dấu chấm phẩy

+ Sửa : program bieu_thuc_so_hoc;

- Dòng 3 :

+ Khai báo sai các biến

+ Sửa : var a, c, b : integer;

- Dòng 6 : 

+ Thiếu dấu chấm phẩy cuối lệnh

+ Sửa : writeln('- Bieu thuc a = 20 - 20  = ', a : 3);

- Dòng 8 :

+ Thiếu dấu chấm phẩy cuối lệnh

+ Sửa : writeln('- Bieu thuc b = (10 + 5) * 10 - 25 = ', b : 3);

- Dòng 10 :

+ Thiếu dấu nháy đơn ngoài các xâu

+ Thiếu dấu chấm phẩy cuối lệnh

+ Sửa : writeln('- Bieu thuc b = (10 + 5 * 10) - 25 = ', b : 3);

- Dòng 12 :

+ Thiếu dấu chấm phẩy cuối lệnh

+ Sửa : writeln('- Bieu thuc c = 18 div 4 * 4 = ', c : 3);

- Dòng 14 :

+ Thiếu dấu chấm cuối từ khoá

+ Sửa : End.

- Kết quả :

- Bieu thuc a = 20 - 20  = 10

- Bieu thuc b = (10 + 5) * 10 - 25 = 125

- Bieu thuc b = (10 + 5 * 10) - 25 = 35

- Bieu thuc c = 18 div 4 * 4 =  16