program hladaj_moc;
  uses crt;
  var m,n,k,v:integer;

begin

  write('Zadaj m: ');
  readln(m);
  write('Zadaj n: ');
  readln(n);

{  repeat
    readln(k);
  until k>3;
}
{  clrscr;
  k:=4;
  while(k<=3) do begin
    readln(k);
  end;
}
  {medzivysledok}
  v:=1;
  k:=0;
  {v je vzdy n^k}
  while(v<m) do begin
    k:=k+1;
    v:=v*n;
  end;

  writeln('Vysledok je ', k-1);


end.