Какой объём видеопамяти необходим для хранения четырёх страниц изображения, если разрешение монитора 400 на 640 а количество используемых цветов 16

1) Среди москвичей 9 мужчин + Всего иногородних мужчин 18 ⇒ 27 мужчин, 15 женщин

2) Всего иногородних мужчин 18.Из них-13 НЕ артисты ⇒ 5 артистов-иногородних мужчин

3) Среди пассажиров,не являющихся артистами,16 мужчин и 11 женщин + но ни одна из иногородних женщин не является артисткой

+ 15 женщин всего ⇒ 4 актрисы-женщины (все москвички), 11 мужчин-артистов

4) из 2) + 11 мужчин-артистов ⇒ 6 артистов-мужчин из Москвы, 3 мужчин из Москвы - НЕартисты

5) 27 мужчин, 15 женщин; из них москвичей - 9 мужчин, 4 женщины

6) 6 москвичей - НЕартисты,  3 мужчин-москвичей - НЕартисты ⇒ 3 женщины-москвички - НЕартисты

7) 4 актрисы-женщины (все москвички) + 3 женщины-москвички - НЕартисты ⇒ 7 женщин-москвичек

окончательно:

27 мужчин, 15 женщин, из них из Москвы - 9 мужчин и 7 женщин

15 артистов  - 4 женщины (все иногородние) и 11 мужчин (6 - из Москвы)

Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45