Bài 2:
Chỉ cần 1 vòng lặp for cho i chạy từ 1 đến n ( với n nhập từ bàn phím) 
Tong s= s+ i 
Chương trình cụ thể: 

Var n: integer; 
s: longint; 
BEGIN 
repeat 
write( 'Nhap n: '); readln(n); 
until (n>=0); 
s:=0; 
for i:=1 to n do 
s:=s+i; 
write('Tong cac so tu 1 toi ', n,' =', s); 
readln 
END.