Найти показатель степени - PascalABC.NET

Формулировка задачи:

Дано целое число N (> 0), являющееся некоторой степенью числа 2: N = 2^K. Найти целое число K — показатель этой степени. Желательно используя While

Решение задачи: «Найти показатель степени»

textual
                            Листинг программы 
                        

                            var n,s,k:integer;
begin
write('Введите натуральное число, степень 2 n=');
readln(n);
s:=1;
k:=0;
while s<n do
 begin
  s:=s*2;
  k:=k+1;
 end;
if s<>n then write('Это не степень числа 2')
else write('Это 2^',k);
end.
                        