VIẾT CHƠNG TRÌNH TÍNH TỔNG SAU

Câu 12: Viết chơng trình tính tổng sau: S=1+2+3+…+N. ợi ý:GVar n,i:integer; s:real; beginwriteln('nhap so n=');readln(n); s:=0; for i:=1 to n do s:=s+i;writeln('tong la:',s); readln;end.