Помогите,ОЧЕНЬ СРОЧНО!Определите значение переменной k после выполнения следующего...

Question

Помогите,ОЧЕНЬ СРОЧНО!Определите
значение переменной k
после выполнения следующего фрагмента
алгоритма, представленного в виде
блок-схемы, если q=15.
В ответе укажите только число.

---

Answer 1

Var q,s,i,k:integer;
   beginq:=15; s:=0; i:=1;
while s    end.

Если правильно сделал, то к=4.