Укажите сумму чисел, которые программа выведет на экран.

var x, L, M: longint;
begin
x := 727;
L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
if x mod 2 = 0 then
M:= M + \(x mod 8\) div 2;
x:= x div 8;
end;
writeln\(L\); write\(M\);
end.