Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho đúng:

Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho đúng:
Program Tinh tong;
Uses crt;
Var n;s;i:Interger;
begin
Clrsr;
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,