$#TrumFlorentino$

Cứ thực hiện theo thuật toán ta được như sau:

s ban đầu = 20

n ban đầu = 1

s>=5 thì dừng 1 thì s<5 thì chạy

n:=n+1;     đây là câu lệnh tăng n lên 1

s:=s-n;      trừ s đi n đơn vị

suy ra:

giá trị ban đầu của s>5 nên lệnh lặp không chạy

s vẫn giữ nguyên giá trị

S=20

Chương trình:

uses crt;

var s,n: integer;

begin

 clrscr;

  s:=20;

  n:=1;

  while s<5 do

  begin

  n:=n+1;

  s:=s-n;

  end;

  writeln (s);

 readln;

end. 

* chương trình sẽ thực hiện 0 lần lặp

vì s:=20 nên điều kiện s ≥ 5 là đúng ⇒ kết thúc lặp, chuyển tới bước 4

* vì chương trình không thực hiện lần lặp nào nên s mang giá trị ban đầu, tức là s = 20

* chương trình:

uses crt;

var s,n: integer;

begin

clrscr;

s:=20; n:=1;

while s<5 do

begin

n:=n+1;

s:=s-n;

end;

write(s);

readln;

end.