Question

People, help me please

Answer 1

program test;

var n, k: int64;

begin

   readln(n);

   k := 2;

   while k < n do

   begin

       k := k * 2;

   end;

   writeln(k);

end.

---------------

Код на pascal