Первый чертёж.Две шапки одному брату (Первая Ш и вторая Ш ведут к первой Б).Другому брату (Б посередине ведём линию к третей Ш).Один брат (Третья Б) остаётся без шапки,линию нему вести не надо.
Второй чертёж.К одной куртке (Первой К) ведём линии от двух братьев (Первая Б и вторая Б ведут линию к первой К).Последняя Б и последняя Ш соединяем линиями.
Наверное так.
5(2x-3) = 6*15
10x-15=90
10x = 90+15
x = 10,5
Само собой, числа a1..an надо поместить в массив. Если его упорядочить по возрастанию (или убыванию), то элементы с одинаковыми значениями окажутся рядом и их легко будет пропустить.
var
a:array[1..n] of integer;
i,j,t:integer;
begin
{ инициализация массива }
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i]:=Random(10);
Write(a[i]:3);
end;
Writeln;
{ сортировка по возрастанию методом пузырька }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
{ вывод неповторяющихся значений }
Writeln('Уникальные значения элементов');
t:=a[1]; Write(t:3);
for i:=2 to n do
if a[i]<>t then begin t:=a[i]; Write(t:3) end;
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
9 6 1 6 1 4 5 9 1 2 6 7 7 6 1 7 7 8 0 8
Уникальные значения элементов
0 1 2 4 5 6 7 8 9
По формуле 
или 
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета 
бит (округляем в большую сторону так как кусками тут быть не может)
Глубина цвета 
бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес
I = K * i (K - кол-во пикселей, i - Глубина цвета)
Отношение объемов информации 
раз
