Типы сред передачи данных​

Const
  n = 11;

var
  x: array[1..n] of integer;
  i, k, d, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0; s := 0;
  for i := 1 to n do
  begin
    d := Random(11) - 5;
    Write(d:3);
    if (i mod 2) = 0 then begin { четное место }
      if d = 1 then Inc(k);
      x[i] := d
    end
    else begin
      if d < 0 then s := s + d;
      x[i] := sqr(d)
    end
  end;
  Writeln;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(x[i]:3);
  Writeln;
  Writeln('Количество единиц на четных местах равно ', k);
  Writeln('Сумма отрицательных элементов на нечетных местах равна ', s)
end.

Тестовое решение:
Элементы массива
 -3  0 -5  1  5  1 -3 -4  5 -3 -2
Результирующий массив
  9  0 25  1 25  1  9 -4 25 -3  4
Количество единиц на четных местах равно 2
Сумма отрицательных элементов на нечетных местах равна -13

1) V=x*y*G
G - глубина изображения 
C - количество цветов
c=2^G => g=6
V=(2^7 * 2^8 * 6)/2^13 = 24
ответ 24
(2^13 т.к. в килобайтах)

2) V=(2^7 * 2^7 * 5)/2^13=10
ответ: 10

3) V=(2^6 * 2^7*7)/2^13=7 
ответ: 7

4) V=(2^6 * 2^8 * 8)/2^13=16
ответ: 16

5) V=(2^5 * 2^10 * 7)/2^13=28
ответ: 28

6) V=(2^9 * 2^10 * 6)/2^13=384
ответ: 384

7) V=(2^9 * 2^8 * 5)/2^13=80
ответ: 80

8) V=(2^7*2^9*4)/2^13=32
ответ: 32

9) V=(2^7 * 2^8 * 3)/2^13=12
ответ: 12

10) V=(2^7 * 2^7 * 8)/2^13=16
ответ: 16

11) V=x*y*G; G=V/(x*y)
V=24*2^13
x*y=2^7*2^8 => G=(24*2^13)/(2^15)=8
т.к. c=2^G => c=2^8=256 цветов.
ответ: 256

12) G=(10*2^13)/(2^14)=5
c=2^5=32 цвета 
ответ: 32

13) G=(7*2^13)/(2^13)=7
c=2^7=128 цветов
ответ: 128

14) G=(16*2^13)/(2^14)=8
c=2^8=256 цветов
ответ: 256

15) G=(28*2^13)/(2^15)=7
c=2^7=128
ответ: 128