Получив на вход число x, этот алгоритм печатает два числа: L и M. Укажите наибольшее число x, при вводе которого алгоритм печатает сначала 7, а потом 8.
Pascal:


var x,L,M:integer;
begin
readln(x);
L:=0;
M:=0;
while x>0 do
begin
M:=M+1;
if x mod 2 0 then
L:=L+1;
x:=x div 2;
end;
writeln(L);
writeln(M);
end.