Утренняя пробежка (Pascal)

Утренняя пробежка

В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.

Входные данные
Программа получает на вход действительные числа x и y

Выходные данные
Программа должна вывести одно натуральное число.

Исходный код на языке Pascal
var
  a, b: real;
  i, k: integer;

begin
  read(a, b);
  k := 1;
  for i := 1 to 100 do
  begin
    if a >= b then 
    begin
      writeln(k);
      break;
    end;
    a := a + 0.1 * a;
    k := k + 1
  end;
end.