Deskripsi untuk soal nomor 43 - 45

Perhatikan potongan program berikut ini:

var cnt,x : longint;

procedure tukar(a:longint);
begin
  cnt := 1;
  while (a > 0) do begin
    cnt := cnt * 2;
    a := a div 2;
  end;
end;

begin
  readln(x);
  tukar(x);
  writeln(cnt);
end.