---

program Variant5_Task2;
var
  N, K: integer;
begin
  write('Введите целое число N (степень двойки): ');
  readln(N);
  
  K := 0;
  while N > 1 do
  begin
    N := N div 2;
    K := K + 1;
  end;
  
  writeln('Показатель степени K = ', K);
end.