Cách 1

Program tinh_tong;

Var i,n,s:integer;

Begin

S:=0;

Write('nhap n =');readln(n);

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

Write('tong',n,'so tu nhien dau tien = ',s);

Readln

End.

- Cách 2: for 1 to 100 do

- Cách 3: for 100 downto 1 do

- Cách 4: while i <= 100 do (trong đó i là integer và trong vòng lặp i = i + 1;)

- Cách 5: repeat i ... until i > 100 (trong đó i là integer và trong vòng lặp i = i + 1;)

Chúc bạn thành công