Сложность двоичного поиска - Pascal

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

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

Входные данные

Вводится одно число N

Выходные данные

Выведите наименьшее количество вопросов, которого гарантированно хватит Пете, чтобы угадать Васино число.

Примеры

входные данные

выходные данные

Решение задачи: «Сложность двоичного поиска»

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

program task;
var 
  n, j : longint;
begin
  readln(n);
  j := ceil(ln(n) / ln(2));
  writeln(j);
end.

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

Объявляется переменная n типа longint для хранения введенного пользователем значения.
Объявляется переменная j типа longint для хранения результата вычислений.
Пользователь вводит значение для переменной n.
Выполняется вычисление значения переменной j по формуле j := ceil(ln(n) / ln(2)), где ln обозначает натуральный логарифм, а ceil - округление вверх.
Выводится значение переменной j на экран.