Укажите наименьшее четырехзначное шестнадцатеричное число,двоичная запись которого содержит ровно 5 едениц. в ответе запишите само шестнадцатеричное число.

// pascalabc.net 3.0, сборка 1128 procedure convert(v: array of integer); begin   for var i: =0 to v.length-1 do       if v[i]> 9 then v[i]: =9       else           if v[i]< 5 then v[i]: =5 end; procedure develop(c: char; k: integer); begin   writelnformat('*** массив {0} ***',c);   var a: =arrrandom(k,-5,15);   write('исходный : '); a.println(',');   convert(a);   write('результат: '); a.println(','); end; begin   var m: =readinteger('количество элементов в массиве a: ');   var n: =readinteger('количество элементов в массиве b: ');   develop('a',m);   develop('b',n) end. тестовое решение: количество элементов в массиве a: 15 количество элементов в массиве b: 10 *** массив a *** исходный : 6,5,-5,9,1,0,-3,9,13,12,-4,8,11,14,-5 результат: 6,5,5,9,5,5,5,9,9,9,5,8,9,9,5 *** массив b *** исходный : 5,12,12,4,7,9,7,-3,-1,-2 результат: 5,9,9,5,7,9,7,5,5,5