var a, b: integer;
begin
a := 1;
b := 1;
while a <> 128 do begin
a := a * 2;
b := b + 2;
end;
writeln(b);
end.
var a, b: integer;
begin
a := 1;
b := 1;
while a <> 128 do begin
a := a * 2;
b := b + 2;
end;
writeln(b);
end.