{* Степень двойки *}

Unit STEPEN2;
Interface
Implementation
Begin
 writeln('Определение, является ли число степенью двойки');
End.

Program z1;

Uses stepen2.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
label 1;
Var {* Необходимые переменные *}
  a : integer;
  i : integer;
  k : integer;
Begin
  writeln('ўў®¤ зЁб« ');
  readln(a);
  k := 0;
  i := 0;
  While a > 1 Do
  Begin
    i := a Mod 2;
    a := a Div 2;
    If i0 Then
    Begin
      k := 1;
      Goto 1;
    End;
    
  End;
  1:
  If k = 0 Then
    writeln('yes!')
  Else writeln('no');
    readkey; {* Нажмите любую клавишу *}
End.