Cú pháp: WHILE <Điều kiện> DO <Công việc>
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