Работа в Дельфи!!!

[L0102591]

Дано целое число N(>0), являющееся некоторый степенью числа. 2:N=2k ("к" в квадрате).
Найти целое число "К" - показатель этой степени .

[tools]

логарифм по основанию 2 от N
только N= (2 в степени k) или N = (k в квадрате) по вопросу неопонятно k -показатель или основание степени ???
И то, и то - одна строчка кода

[DoDge_VipeR]

k:=0;
while n<>1 do
begin 
n:=n div 2;
k:=k+1;
end;