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.