Нужно составить алгоритм. в магазин товар,цена которого х рублей. каждый месяц инфляция в размере 1% увеличивала цену товара на сумму инфляции. на какой по счету месяц цена товара увеличится в 1.5 раза.

Program P1;
var x,y:real; k:integer;
begin
  write('Цена товара = '); readln(x);
  y:=x; k:=0;
  while y<1.5*x do
 begin
   y:=y*1.01;
   k:=k+1;
   end;
  writeln('k = ',k);
end.