Алгоритм

[evro]

Значение переменной R, вычисленное по блок-схеме,


Не могу получить правильный ответ.
Правильный ответ должен быть 9.
Скажите, что не так.

var a,r, b: integer;

begin
  a:=16;
  b:=1;
  r:=0;
while a > 1 do
        begin
    if (a mod 3)=0 then
      begin
        a:=a div 3;
        r:=r+1;
      end;
    if (a mod 3)=1 then
      begin
        a:=(a*2)+1;
        r:=r+1;
      end;
    if (a mod 3)=2 then
      begin
        a:=(a*2)-1;
        r:=r+1;

      end;
  end;
  writeln('Variant 20');
  writeln('Otvet: r=',r);
  readln;
end.