Var S.N.i:integer;

Begin

Clrscr

`->` chưa khai báo thư viện đã dùng

`->` sửa:

`@` C1: thêm uses crt; vào trước var

`@` C2: xóa dòng clrscr đi

Write (‘Nhap so N=’); readln (‘n’);

`->` không có lỗi

For i:=1 to n do S=S+1/i*(i+3);

`->` thiếu dấu ":" trước dấu "="

`->` sửa thêm : vào trước =  (VD: For i:=1 to n do S:=S+1/i*(i+3);)

Writeln (Tong cua ‘N’ so tu nhien dau tien S=’,S);

                             ^^

`->` thiếu dấu , ở hai vị trước và sau N

`->` sửa: thêm dấu "," ở trước và sau N (VD: Writeln (Tong cua ‘,N,’ so tu nhien dau tien S=’,S);)

Readln

End.

Var S.N.i:integer;

`->`

`+`dấu ngăn cách giữa các tên biến là dấu phẩy

`+` Biến s nhận giá trị thập phân ( do biến s được gán phép chia )
Begin
Clrscr

`->`

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

`+` Khi sử dụng lệnh clrscr phải khai báo thư viện crt 
Write (‘Nhap so N=’); readln (‘n’);

`->`

`+` Sai dấu nháy đơn

`+` Trong lệnh readln, không được sử dụng dấu nháy đơn
For i:=1 to n do
S=S+1/i*(i+3);

`->`

`+` Thay vì sau do là câu lệnh, thì chương trình dùng phép so sánh ( dấu bằng )
Writeln (Tong cua ‘N’ so tu nhien dau tien S=’,S);

`->`

`+`Có thể đây là lỗi : không làm tròn

`+` Sai dấu nháy 

`+` Dấu nháy đặt sai vị trí 
Readln
End.

`=>\text{Sửa }`

uses crt;
Var  N,i:integer;
S : real ;
Begin
Clrscr ;
Write ('Nhap so N='); readln (n);
For i:=1 to n do
S:=S+1/i*(i+3);
Writeln ('Tong cua ',n,' so tu nhien dau tien S=',S);
Readln
End.