Cú pháp của câu While .. do là:

Cú pháp: While ( điều kiện) do ( câu lệnh ).

+Vì: while, do là từ khóa,điều kiện thường là phép so sánh,câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép.

VD:

-

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

- Cú pháp: $While <điều kiện>do <câu lệnh>;$

- Giải thích:

+ While, do: từ khóa

+ Điều kiện: đề bài cho, là phép so sánh

+ Câu lệnh: là câu lệnh đơn, lệnh ghép, lệnh gán.

- VD: While i>n do i:=i+16;