*Lỗi sai:
- Dòng 1: Thiếu ";" ở cuối
- Dòng 2: Thay "." bằng ";"
- Dòng 5: Thiếu ";" ở cuối
- Dòng 6: Sửa lại đoạn này là: write('Nhap so n = '); readln(n);
- Thêm "Readln" vào trước "End." để đọc chương trình
*Sửa:
program chuongtrinh;
uses crt;
var i, n,s: integer;
begin
clrscr; {Có thể có hoặc không}
S:=0;
Write('Nhap n = '); readln(n);
For i:=1 to n do s:=s+i;
Writeln('Tong la: ',s);
readln
end.