Вводится число. Напечатать YES, если оно является степенью двойки, NO -

program zz1;

var n:real; // задаем переменную нецелого типа

p:integer; // задаем переменную целого типа

begin

write( введите натуральное число );

read(n);  // вводим с клавиатуры число

while ngt;2 do // организуем цикл пока

begin

n:=n / 2;  // разделяем число напополам

if (n = 1) or (n = 2) then p:=1; // проверяем, если в конце цикла получилась двойка либо единица, то запоминаем это

end;

if p = 1 // проверяем, если нашлось

then writeln( YES ) // выводим один ответ

else writeln( NO ); // иначе, выводим другой ответ

end.