1. Chương trình tính tổng số thứ hai và số thứ tư từ bàn phím (TCSCL) và tổng số thứ nhất, thứ ba, thứ năm từ bàn phím (TCSCB) <chạy chương trình mình thấy thế, chứ không chắc chắn là gì nữa>

2. Lỗi sai:

Dòng 1 : tên sai vì có khoảng trắng  : program 11

Dòng 2: sai từ use : use thiếu s

Dòng 3 : có các biến i, n, k đã khai báo nhưng không sử dụng trong chương trình : thiếu dấu hai chấm trước integer

Dòng 5 : thiếu clrscr;

Dòng 9 : trước else có dấu chấm phẩy là không hợp lệ

Dòng 11 : thiếu chấm phẩy cuối dòng

Dòng 16, 17 : thứ tự hai dấu , ' bị sai

3. Viết lại chương 

program lop_11;
uses crt;
var s, s1, s2, a, b, c, d, e : integer;
begin
clrscr;
write('nhap so thu nhat: '); read(a);
if (a mod 2 =9) then s := s+a else s1 := s1 + a;
write('nhap so thu hai: '); read(b);
if (b mod 2=0) then s:=s+b  else s1 := s1 + b;
write('nhap so thu ba: '); read(c);
if (c mod 2=9) then s:=s+c else s1 := s1 + c;
write('nhap so thu tu: '); read(d);
if (d mod 2=0) then s:=s+d else s1 := s1 + d;
write('nhap so thu nam: '); read(e);
if (e mod 2=9) then s:=s+e else s1 := s1 + e;
writeln('TCSCL:', s );
writeln('TCSCB:', s1);
readln
end.

program Lop_11;
uses crt;
var s, s1, s2, a, b, c, d, e : integer;
begin
clrscr;
write('nhap so thu nhat: '); readln(a);
if (a mod 2 =9) then s := s+a else s1 := s1 + a;
write('nhap so thu hai: '); readln(b);
if (b mod 2=0) then s:=s+b  else s1 := s1 + b;
write('nhap so thu ba: '); readln(c);
if (c mod 2=9) then s:=s+c else s1 := s1 + c;
write('nhap so thu tu: '); readln(d);
if (d mod 2=0) then s:=s+d else s1 := s1 + d;
write('nhap so thu nam: '); readln(e);
if (e mod 2=9) then s:=s+e else s1 := s1 + e;
writeln('TCSCL:', s );
writeln('TCSCB:', s1);
readln
end.

Mk chỉ lm cho bạn thôi bạn tự soát nha