Задачка на нахождение

[Paul Oakenfold]

Процентная ставка по вкладу 15% годовых. Первоначальный вклад составил A р. Выведите на экран, через сколько лет он станет больше B р. Значения A и B вводятся с клавиатуры.

[alex_fcsm]

var a,b:real;
    x:byte;
    
begin
readln(a,b);
x:=0;
while a<=b do
 begin
  inc(x);
  a:=a*1.15;
 end;
 writeln('Через ',x);
end.