Проверить, является ли число степенью двойки - Turbo Pascal

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

Нужно сделать небольшую программу, которая будет проверять, является ли число степенью двойки, то есть, 16-является степенью двойки (2^4=16), а 18 не является, но нужно сделать, как можно проще!

Решение задачи: «Проверить, является ли число степенью двойки»

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

var n:longint;
begin
 write('n = ');readln(n);writeln(n and (n-1)=0)
end.

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

Переменная n объявляется как longint, что означает, что она может содержать только целочисленные значения.
В строке кода n = читается значение переменной n с помощью функции readln.
Затем выполняется операция n and (n-1)=0, где оператор and используется для выполнения побитового И между n и (n-1).
Результат этой операции выводится на экран с помощью функции writeln.
Код завершается без использования вложенных списков.