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

Если N это не известное число тогда будут все числа при которых умножения на 3 будет давать произведение больше 100 (если N это-что другое тогда не знаю)

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.