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

Ý nghĩa: Đầu tiên lệnh sẽ kiểm tra Điều kiện, nếu Điều kiện đúng thì thực hiện Công việc sau đó quay lại kiểm tra Điều kiện. Quá trình cứ thế tiếp tục cho đến khi Điều kiện sai thì kết thúc lệnh.

Ví dụ 1: Viết chương trình nhập vào số nguyên dương N, in ra ước số lớn nhất của số N (khác N).

     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.