Определить, является ли число степенью двойки

var
  n: integer;
 
begin
  read(n);
  if n mod 2 = 1 then
    writeln('NO')
  else if (n = 2) or (n = -2) then
    writeln('YES')
  else 
  begin
    while (n mod 2 = 0) and (n > 2) do
      n := n div 2;
    if (n = 2) or (n = -2) then
      writeln('YES')
    else
      writeln('NO');
  end;
end.

read(n);
n:=abs(n);
if (n<>0)and(n and(n-1)=0) then write('Yes')else write('NO')

if n and(n-1)=0

function DecToBin(N: integer): String;
 
const
  binary: array[0..1] of Char = ('0', '1');
 
var
  res: String;
 
begin
  res := '';
  while n > 0 do 
  begin
    res := binary[n mod 2] + res;
    n := n div 2;
  end;
  DecToBin := res;
end;
 
//========================================
 
var
  n, k, di: integer;
  bins, ds: string;
 
begin
  ds := '1';
  read(n);
  bins := DecToBin(n);
  k := length(bins) - 1;
  for i: integer := 1 to k do
    ds := ds + '0';
  di := strtoint(ds);
  if strtoint(bins) / di = 1 then
    writeln('YES')
  else
    writeln('NO');
end.

var
  n: integer;
 
begin
  readln(n);
  if (n > 0) and (n and (n - 1) = 0)
    then writeln('YES')
    else writeln('NO')
end.

begin
  var n := readlninteger;
  writeln((n > 0) and (n and (n - 1) = 0) ? 'YES' : 'NO')
end.