Дана блок-схема алгоритма. Чему будет равна переменная X на выходе алгоритма, если на вход подали S = 102030405?

Ответ: X=4
Вот этот алгоритм на языке Forth
VARIABLE X 0 X !

VARIABLE S 102030405 S !

: RUN
BEGIN
S @ 10 MOD
0= IF X 1+! THEN
S @ 10 / DUP S !
10 < IF X @ . BYE THEN
AGAIN ;

RUN

BYE