{* Задача 207 *}

Unit ZADACH207;
Interface
Implementation
Begin
 writeln('Дано целое число N(>0), являющееся некоторой степенью числа 2: N=2 в степени K. Найти целое число K - показатель этой степени.');
End.

Program zadach207;

Uses zadach207.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  N : integer;
  K : integer;
Begin
  clrcsr;
  writeln ('Введите число');
  readln(N);
  If N = 1 Then
    K := 0
  Else Begin
    K := 1;
  While N > 2 Do
  Begin
    K := K + 1;
    N := N / 2;
  End;
  
End;
  writeln ('K=', K);
  End....