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

uses crt;
var n,p:longint;
begin
 clrscr;
 write('-> ');
 readln(n);
 p:=1;
 while p<n do p:=p*2;
 if p=n then write('YES') else write('NO');
 readln;
end.

function Step(a: integer): boolean;
begin
  while a <> 2 do
  begin
    if a mod 2 <> 0 then begin Step := false; exit end;
    a := a div 2
  end;
  Step := true
end;
var
  a: integer;
begin
  write('Vvedite chislo: ');
  readln(a);
  if Step(a) then write('Eto stepen dvoyki!')
  else write('Eto ne stepen dvoyki!');
  readln
end.

program st;
procedure stepen(a:integer):string;
var r:integer;
begin
r:=0;
while a>0 do begin
r:=r+(a mod 2);
a:=a div 2;
end;
if r=1 then
stepen:='true'
else
stepen:='false'
end;
var a:integer;
begin
readln(a);
writeln(stepen(a));
end;

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

function ProverkaKvadrat(k: integer): boolean;
var
  flag: boolean;
begin
  flag := true;
  while (k > 1) and (flag = true) do
  begin
    if k mod 2 <> 0 then flag := false;
    k := k div 2;
  end;
  ProverkaKvadrat := flag;
end;
 
var
  k, i: integer;
 
begin
  for i := 1 to 10 do
  begin
    read(k);
    writeln(ProverkaKvadrat(k));
  end;
end.