var
x, y:real;
day:integer;
begin
readln(x);
readln(y);
day := 1;
while x < y do
begin
x := x * 1.1;
day := day + 1;
end;
writeln(day);
end.
var
x,y:real;
n:integer;
begin
readln(x);
readln(y);
while x<y do begin
x:=x*0.1+x;
n:=n+1;
end;
writeln('den=', n)
end.
