По своей структуре анимированные изображения могут быть ​

1. Системн. блок. = 3 бита будет весить, так как число 7 вместится в 2^3.
2. Шары

128 шаров = 7 бит вес.
3 бита белые = 2^3 = 8 штук белых.
128 - 8 = 120 штук осталось на красные и синие.
90 - красные
30 - синие

синих 30 штук

3. Корзина 3 стр * 25 строки * 60 симв / 1125 байт вес = 4 байт на символ.  4 байт * 8 = 32 бит на симв. 2^32 = 4 294 967 296 символов алфавет
4. Сообщение 16 / 8 = 2 раз. 32 байт * 2 раз = 64 байт было. 64 байт / (16/8) = 32 символа объём сообщенийа.
5. Палитра 7 штук это 3 бита на цвет. Поэтому 7-ми цветовая палитра становится 3-ёх битной графикой (глубина цвета 3 бита).

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!

begin

 var n:=readinteger('n=');

   var mas:= new integer[n];

   Writeln('Введите числа в диапазоне 1..5->');

   for var i:=0 to n-1 do

   mas[i]:=readinteger;

Writeln('Количество 5=',mas.Where(t->t=5).Count);

Writeln('Количество 4=',mas.Where(t->t=4).Count);

Writeln('Количество 3=',mas.Where(t->t=3).Count);

Writeln('Количество 2=',mas.Where(t->t=2).Count);

Writeln('Количество 1=',mas.Where(t->t=1).Count);

end.