program while5;
uses crt;
var 
  n:integer;
  i,k:integer;
  f:boolean;
begin 
clrscr;
  repeat
    write('Введите число (степень числа 2) ');
    readln(n);
  until n>0;
f:=true;
k:=0;
  while (n>1)and f do
    if odd(n)and (n<>1) then f:=false
  else
  begin
    N:=N div 2;
    k:=k+1;
  end;
  if f then 
    write('Результат ',k)
  else 
    write('Число не является степенью числа 2');
  readln;
end.