Зробити в паскалі. В одновимірному масиві що складається з n дійсних елементів обчислити добуток елементів масиву з парними елементами. Суму елементів масиву розташованих між першим і останнім нульовим елементами. Зробити окремим модулем і потім використати цей модуль і процедуру в програмі

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

Px - обозначение пикселя

количество пикселей в изображении = ширина * высота

количество цветов = 2ⁱ^1 - глубина (битность) цвета,
т. е. количество бит на 1 px

2⁴ = 16 цветов
2⁸ = 256 цветов

8 бит = 1 байт

1.количество px в изображении = 200 * 100 = 20 000 px
битность => 16 цветов = 4 бит

20 000 * 4 = 80 000 бит
80 000 / 8 = 10 000 байт

ответ:
для изображения размером 200×100 пикселей
при глубине цвета 4 бит (16 цветов)
необходимо 10 000 байт

2.
количество px в изображении = 200 * 150 = 30 000 px
битность => 258 цветов = 8 бит

30 000 * 4 = 120 000 бит
120 000 / 8 = 15 000 байт

ответ:
для изображения размером 200×150 пикселей
при глубине цвета 4 бит (16 цветов)
необходимо 15 000 байт

3.
количество px в изображении = 20 * 30 = 600 px
256 цветов = 8 бит

600 * 8 = 4 800 бит
4 800 / 8 = 600 байт

4.
6 px = 2 * 3
2³ = 8 цветов

Двоичный код цветов 3-битной палитры:
R G B
1 1 1 белый
0 0 0 черный
1 0 1 малиновый
1 0 0 красный
0 0 1 синий
0 1 1 бирюзовый
0 1 0 зеленый
1 1 0 желтый

Изображение из 6 px
с основными цветами (без белого и черного):
мал кра син
бир зел жел

Двоичный код изображения:
101 100 001
011 010 110