a) 

- kiểm tra điều kiện "S≤5,2" (sai, vì hiện tại S = 10)

⇒ chuyển tới B3, lặp lần 1:

-> S ← S - x ( = 10 - 0,5 = 9,5)

- kiểm tra điều kiện "S≤5,2" (sai, vì hiện tại S = 9,5)

⇒ chuyển tới B3, lặp lần 2:

-> S ← S - x ( = 9,5 - 0,5 = 9)

- kiểm tra điều kiện "S≤5,2" (sai, vì hiện tại S = 9)

⇒ chuyển tới B3, lặp lần 3:

-> S ← S - x ( = 9 - 0,5 = 8,5)

- kiểm tra điều kiện "S≤5,2" (sai, vì hiện tại S = 8,5)

⇒ chuyển tới B3, lặp lần 4:

-> S ← S - x ( = 8,5 - 0,5 = 8)

- kiểm tra điều kiện "S≤5,2" (sai, vì hiện tại S = 8)

⇒ chuyển tới B3, lặp lần 5:

-> S ← S - x ( = 8 - 0,5 = 7,5)

- kiểm tra điều kiện "S≤5,2" (sai, vì hiện tại S = 7,5)

⇒ chuyển tới B3, lặp lần 6:

-> S ← S - x ( = 7,5 - 0,5 = 7)

- kiểm tra điều kiện "S≤5,2" (sai, vì hiện tại S = 7)

⇒ chuyển tới B3, lặp lần 7:

-> S ← S - x ( = 7 - 0,5 = 6,5)

- kiểm tra điều kiện "S≤5,2" (sai, vì hiện tại S = 6,5)

⇒ chuyển tới B3, lặp lần 8:

-> S ← S - x ( = 6,5 - 0,5 = 6)

- kiểm tra điều kiện "S≤5,2" (sai, vì hiện tại S = 6)

⇒ chuyển tới B3, lặp lần 9:

-> S ← S - x ( = 6 - 0,5 = 5,5)

- kiểm tra điều kiện "S≤5,2" (sai, vì hiện tại S = 5,5)

⇒ chuyển tới B3, lặp lần 10:

-> S ← S - x ( = 5,5 - 0,5 = 5)

- kiểm tra điều kiện "S≤5,2" (đúng, vì hiện tại S = 5)

⇒ chuyển tới B4, thông báo S, kết thúc lặp:

-> sau khi thực hiện 10 vòng lặp, giá trị của S là 5 

* chương trình:

uses crt;

var S,x: real;

begin

clrscr;

S:=10; x:=0.5;

while S>5.2 do

S:=S-x;

write(S:3:1);

readln;

end.

b)

- kiểm tra điều kiện "S≥10" (đúng, vì hiện tại S = 10)

⇒ chuyển tới B4, thông báo S, kết thúc lặp:

-> sau khi thực hiện 0 vòng lặp, giá trị của S là 10

* chương trình:

uses crt;

var S,n: integer;

begin

clrscr;

S:=10; n:=0;

while S<10 do

begin

S:=S-n;

n:=n+3;

end;

write(S);

readln;

end.