Готовлюсь к ЕГЭ по информатике. Задача простая, но мои мозги ослабли после отдыха и не функционируют. 
Определите, что будет напечатано в результате работы следующего фрагмента программы:

var a,b:integer;

begin

a:=8;

b:=-4;

while not (a=2) do

if b>0 then

a:=a div 2

else

begin

a:=a div 2;

b:=-b;

end;

a:=-a+2*b;

write(a);

END.