- Giá trị ban đầu của S = 10, n = 10
- S = 10 ⇒ Điều kiện ở Bước 2 trả về giá trị đúng
- Điều kiện đúng, chuyển tới bước 4
- Thông báo giá trị S rồi kết thúc
=> Máy tính thực hiện 0 vòng lặp
=> Khi kết thúc giá trị S bằng 10
* Viết chương trình :
uses crt;
var s, n : integer;
begin
clrscr;
s := 10; n := 10;
while s < 10 do
begin
n := n + 3;
s := s - n;
end;
write(s);
readln
end.