Нужно составить алгоритм.
В магазин привезли товар,цена которого х рублей. Каждый месяц инфляция в размере 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.