Sửa phương trình :

Program Tinh_Tong;

Var a, b, S: Integer;

Begin

Write('Nhap so nguyen a '); readln(a);

Write('Nhap so nguyen b ');readln(b);

S := a + b;

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