Как узнать сколько раз умножить N на 3, чтобы сумма привысила 100?

program N3;var b,a:integer;begin  b:=0;  write('Введите число - ');readln(a);  repeat        a:=a*3;      b:=b+1;  until a>100;  writeln('Нужно умножить ', b, ' раз');end.

1. Спасибо огромное!