Dưới đây là chương trình đã được sửa lại cho đúng:


Program TinhTong;
Uses crt;
Var n,s,i:Integer;
begin
  ClrScr;
  Write('Nhap vao so N='); Readln(N);<br />  S:=0;<br />  For i:=1 to N do S:=S+i;<br />  Writeln('Tong cua ',N,' so dau tien s=',s);
  Readln;
end.
Sai: Tinh tong----> TinhTong
interger->integer
clrsr--->ClrScr
cuối chương trình dấu , thành chấm