По данному числу n распечатайте все целые степени двойки, не превосходящие n, в порядке возрастания. операцией возведения в степень пользоваться нельзя!

Var  a,r: integer;begin read(a); r:=1; write(1); While ((2*r)<=a) do begin   r:=2*r;   write(' ',r); end; readln; readln end.