Готовлюсь к ЕГЭ по информатике. Задача простая, но мои мозги ослабли после отдыха и не функционируют. Определите, что будет напечатано в результате работы следующего фрагмента программы:var a,b:integer;begina:=8;b:=-4;while not...

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