Дано натуральное число N. Выведите слово YES, если число N является точной степенью двойки, или слово NO в противном случае. Операцией возведения в степень пользоваться нельзя!

Var A,N:longint;BeginWrite('N = ');ReadLn(N);if N mod 2 = 0 then   Begin   A:=1;   While A<N do      A:=A*2;   if A=N then Write('YES')   else Write('NO')   Endelse Write('NO')End.