Câu 1. Chương trình tính tổng của N số tự nhiên, với N được nhập từ bàn phím.
Câu 2. Viết chương trinh tính tổng 100 số tự nhiên đầu tiên.

Program Tinh_tong_100;
Uses CRT;
Var  i,S ; Integer;
 Begin
CLRSCR;
S:=0
For i:=1 to 100 do S:=S+i;
Writeln('Tong cua 100 so tu nhien dau tien S = ',S);
Readln;
End.