Двоичный логарифм

По данному натуральному числу N выведите такое наименьшее целое число k, что 2k≥N.

Операцией возведения в степень пользоваться нельзя!

Входные данные
Вводится натуральное число N.

Выходные данные
Выведите ответ на задачу.

Исходный код на языке Pascal
var
  a, i, s, k: integer;

begin
  read(a);
  s := 1;
  k := 0;
  for i := 1 to 100 do
  begin
    if s >= a then 
    begin
      writeln(k);
      break;
    end;
    s := s * 2;
    k := k + 1
  end;
end.