сумма 100 рублей положена в банк под 10 годовых. Через который промежуток времени первоначальная сумма увеличтся в х раз( х вводится с клавиатуры)

program n1;
var ye,start,x,p:integer;
begin
  writeln('za skolko uvelichitsya summa');
  readln(x);
  ye:=0;
  p:=0;
  start:=100;
  while start=x do
  begin
   start:=start div 10;
   p:=start;
   ye:=ye+1;
  end;
  writeln(ye);
end.