Помогите, пожалуйста!
While5. Дано целое число N больше 0 , являющееся некоторой степенью числа 2: N = 2K. Найти целое число K — показатель этой степени.

Решить с помощью PASCAL

Или циклом:

function Iter(N: integer): integer;begin Result := 0; var x := 1; repeat x *= 2; Result += 1 until N = xend;begin var N := ReadInteger(); Write(Iter(N))end.

function F(N: integer): integer;

begin

 if N = 1 then Result := 0

 else Result := 1 + F(N div 2);

end;

begin

 var N := ReadInteger();

 Write(F(N))

end.