Cú pháp:  WHILE  <Điều kiện>  DO  <Công việc>

VD : Var  n, i : integer;

     Begin

          write(‘Nhập số n = ‘);

          readln(n);

          i := n – 1;

          while  n  mod  i <> 0  do

              i := i – 1;

          writeln(‘Ước số lớn nhất của số ‘, n , ‘ là : ‘, i);

          readln;

     End.

If then 

 Thiếu

  If <điều kiện > then < câu lệnh > ;

`-` Điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì bỏ qua câu lệnh 

  Đủ

  If <điều kiện > then < câu lệnh 1 > else < câu lệnh 2 > ;

`-` Điều kiện đúng thì thực hiện câu lệnh 1 , điều kiện sai thì thực hiện câu lệnh 2

For 

   Lặp tiến

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

`-` Biến đếm nhận giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tăng 1 đơn vị cho đến khi giá trị đầu bằng giá trị cuối thì kết thúc vòng lặp .

   Lặp lùi

  For < biến đếm > := <  giá trị cuối > dowto < giá trị đầu> do < câu lệnh > ;

`-` Biến đếm nhận giá trị cuối, sau mỗi vòng lặp, biến đếm sẽ giảm 1 đơn vị cho đến khi giá trị cuói bằng giá trị đầu thì kết thúc vòng lặp .

While 

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

`-` Kiểm tra điều kiện, nếu điều kiện đúng thì thực hiện câu lệnh và quay lại kiểm tra điều kiện, nếu điều kiện sai thì kết thúc vòng lặp