program Calc;
var
n, k, i: Integer;
begin
Write ('N, K = ');
ReadLn (n, k);
i := 0;
while k < n do begin
Inc (i);
k := k * 2;
end;
WriteLn (i, ' дней');
ReadLn;
end.
program Calc;
var
n, k, i: Integer;
begin
Write ('N, K = ');
ReadLn (n, k);
i := 0;
while k < n do begin
Inc (i);
k := k * 2;
end;
WriteLn (i, ' дней');
ReadLn;
end.