1) Cú pháp câu lệnh for

* Dạng tiến: For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

* Dạng lùi: For <biến đếm> := <giá trị cuối> downto <giá trị đầu> do <câu lệnh>;

Cách hoạt động

Bước 1: Biến điều khiển nhận giá trị đầu.

Bước 2: Nếu giá trị biến điều khiển nhỏ hơn giá trị cuối thì chuyển đến bước 4.

Bước 3: {khi giá trị biến điều khiển bằng giá trị cuối} thực hiện câu lệnh, sau đó dừng lặp, chuyển tới câu lệnh tiép theo vòng lặp.

Bước 4: Thực hiện câu lệnh phía sau do và tăng biến điều khiên tới giá trị tiếp theo.

2) Cú pháp câu lệnh while .. do

While <điều kiện> do <câu lệnh>;

Cách hoạt động: Khi <điều kiện> đúng, While...do sẽ thực hiện <câu lệnh> cho đến khi <điều kiện> sai

3) uses crt;
Var N,i,S:integer;
begin
 clrscr;
 readln(n);
 while (i<=n) do
  begin
   S:=S+i;
   i:=i+1;
  end;
 writeln(S);
 readln;
end.

4) PROGRAM bt1;
uses crt;
Var N,i,S:integer;
begin
 clrscr;
 readln(n);
 for i:=1 to n do S:=S+i;
 writeln(S);
 readln;
end.