Вася загадал число от 1 до N - Pascal

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

Здравствуйте,помогите пожалуйста написать код.Вася загадал число от 1 до N. За какое наименьшее количество вопросов (на которые Вася отвечает "да" или "нет") Петя может угадать Васино число? Входные данные Вводится одно число N Выходные данные Выведите наименьшее количество вопросов, которого гарантированно хватит Пете, чтобы угадать Васино число. Примеры входные данные 5 выходные данные 3

Решение задачи: «Вася загадал число от 1 до N»

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

var
n,m,k:integer;
begin
readln(n);
k:=0;
m:=1;
while m<n do
begin
m:=m*2;
inc(k);
end;
writeln(k);
end.

Объяснение кода листинга программы

Создается переменная n и запрашивается у пользователя ввод значения.
Устанавливаются переменные k и m равными 0 и 1 соответственно.
Выполняется цикл while, пока m меньше чем n, выполняются следующие действия:
- m умножается на 2
- переменная k увеличивается на 1 (с помощью функции inc)
После завершения цикла выводится значение переменной k с помощью функции writeln. Данный код вычисляет количество раз, которое число 2 можно умножить на само себя, так чтобы результат не превышал введенное пользователем число n. В итоге, результат выводится в виде количества умножений в переменной k.