Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 120.
var x, L, M: integer;
begin
readln\(x\);
L:=0; M:=1;
while x > 0 do begin
L:=L+1;
M:= M*\(x mod 8\);
x:= x div 8;
end;
writeln\(L\); write\(M\);
end.