Các lỗi sai:

Dòng 1: Program Tinh_Tong;

Dòng 2: Var a, b, S: Integer;

Dòng 4: Write('Nhap so nguyen a:');

Dòng 6: Write('Nhap so nguyen b:');

Dòng 7: Readln(b);

Dòng 8: S := a + b;

Dòng 9: Write("Tong cua hai so moi nhap la:", S);

(1) Thiếu dấu ";" ở cuối dòng

⇒Sửa: Program Tinh_Tong;

(2) Sai dấu ";" trước integer, thiếu dấu ";" ở cuối dòng

⇒Sửa: Var a,b,S:integer;

(3) Đúng

(4) Thiếu dấu nháy đơn dùng để đóng xâu kí tự

⇒Sửa: Write('Nhap so nguyen a:');

            Readn(a);

(5) Thiếu cặp dấu nháy đơn, thiếu dấu ";" ở cuối cả hai dòng

⇒Sửa: Write('Nhap so nguyen b');

           Readln(b);

(6) Thiếu dấu ":" sau chữ S, thiếu dấu ";" ở cuối dòng

⇒Sửa: S:=a+b;

(7) Thiếu dấu nháy đơn dùng để đóng xâu kí tự, thiếu dấu ";" ở cuối dòng

⇒Sửa: Write('Tong cua hai so moi nhap la:',S);

___________________________

Không biết bạn có ghi thiếu đề và chép sai đề hay không chứ mình thấy thiếu lệnh Readln và End. ở cuối chương trình