Помогите решить задачу на паскале. Количество граждан некоторого города увеличивается ежегодно на В%. Через сколько лет население города возрастет в m раз, если вначале было А человек.

//Pascal ABC.NET 3.1 сборка 1256

Var
 b,a,m,ar:real;
 i:integer;
begin
readln(b,m,a);
i:=0;
ar:=a*m;
while ar>a do
 begin
  inc(i);
  a:=a*(b/100+1);
 end;
writeln(i);
end.

Пример ввода:
33
2
100
Пример вывода:
3