program Tinh_tong;

uses crt;

var i, n, s: integer;

begin clrscr;

writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');

write('Nhap so n: ');read(n); s:=0;

for i := 1 to n do s := s + i;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln;

readln;

end.

* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while