S:=10;
X:=2;
i:= length(S);
while S[ i ] < >' ' do
        Begin
                 S:=S[ i ]-X;
                  i:= i - 1;
        End;
readln;
End.

Như vậy giá trị của S thì phải lặp đi lặp lại nhiều lần cho đến khi có giá trị ''True'' thì hoàn toàn đúng với chương trình đã làm, và còn nếu chương trình sai ở giá trị ''False'' thì chương trình này sẽ không thực hiện công việc.
Kết quả của biến này là bằng 6