cú pháp:
While <điều kiện> do<câu lệnh>;
*hoạt động:
B1:kiểm tra điều kiện
B2: nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1.
Vd:
T:=0;
i:=1;
while i<=100 do begin T:=T+1/i; i:=i+1; end;
writeln(T)