Вводится число. напечатать yes, если оно является степенью двойки, no - иначе. ввод 1 8 вывод 1 yes ввод 2 22 вывод 2 no

Program x2;
var n:longint;
begin
Write('Введите n, n = ');
Readln(n);
While n mod 2 = 0 do 
    n:= n div 2;
If n=1 then Write('YES')   
     else write('NO');
end.