Ниже записан алгоритм

Ответ: 428 нашел с помощь программы var x, L, M, i: integer; begin for i: =4096 downto 1 do begin L: =0; M: =1; x: =i; while x > 0 do begin Inc (L); M: =M*(x mod 8); x: =x div 8; end; if (L=3) and (M=120) then begin WriteLn ('x=', i); break; end; end; readln; end.