Cho thuật toán.Yêu cầu minh họa vòng lặp,xác định giá trị S ở vòng lặp cuối cùng?Viết chương trình để minh họa thuật toán trên?

Giúp mik vs các bn và các anh chị

Thuật toán 

Bước 1: 10 → S; 0.5 → x

Bước 2. Nếu S ≤ 5.2 thì chuyển tới bước 4.

Bước 3. S – x → S và trở lại bước 2.

Bước 4. Thông báo S, kết thúc thuật toán.

Program Cau 1;

uses         crt;

var           x, S : real;

begin

          clrscr;

          S: = 10;

          x: = 0.S;

          while S > 5.2 do

          begin

                     S: = S – x;

end;

write (S);

readln;

end.

Thuật toán 

Bước 1. S ← 10, x ← 0.5

Bước 2. Nếu S ≤ 5.2, chuyển tới bước 4.

Bước 3. S ← S – x và quay lại bước 2.

Bước 4. Thông báo S và kết thúc thuật toán.