Дана последовательность чисел а1,, по возрастанию, и число n1, не равное ни одному из чисел последовательности, и такое что а1

Program z; var a: array [1..15] of integer; i,k,s,j,n: integer; begin writeln('начальная последовательность'); for i: =1 to 15 do begin a[i]: =random(1,100); write(a[i], ' '); end; for j: =1 to 14 do for i: =1 to 14 do if a[i]> a[i+1] then begin k: =a[i]; a[i]: =a[i+1]; a[i+1]: =k end; writeln; writeln('отсортированная последовательность'); for i: =1 to 15 do write(a[i], ' '); writeln; write('введите n (а[1]< n< a[15]) '); read(n); for i: =1 to 15 do begin if (a[i]=n) or (a[1]> n) or (a[15]< n) then begin while (a[i]=n) or (a[1]> n) or (a[15]< n) do begin writeln('ошибака! число n не длжно совпадать с элементами последвовательности и а[1]< n< a[15]'); write('введите n (а[1]< n< a[15]) '); read(n); end; end; if a[i]< n then s: =a[i]+s; end; write('cумму последовательности меньших n = ',s); end.

  для 16 цветов используется 4 бита -  для 256 цветов используется 8 бита раза увеличится информационный объём. p.s. в процессе такого преобразование объём увеличится, но изображения не улучшится а останется таким же.