Решите , будь ласка , bitte , please

Var a: array [1..15] of integer;       i, min, index: integer; begin   min: =a[1];   for i: =1 to 15 do     begin     a[i]: =random(41)-20;     write (a[i], ' ');   end;   writeln;   for i: =1 to 15 do   begin     if min> a[i] then       begin       min: =a[i];       index: =i;   end;   end;   writeln('минимальный элемент массива  = ',min);   writeln('его индекс  = ',index); end.

1) n=32  =>   n=2^5,  i=5,  ответ:   5 бит 2)  а=300 страниц b=40  строк с=75 симв.в  строке n=256 i(диска)=4гб=4294967296  байт n=2^8  =>   i=8 i(книги)=a*b*c*i=300*40*75*8=7200000 бит=900000  байт х(книг поместится на диске)=i(диска)/i(книги)=4772 3) n=?   n=2^i i=2кб=32768 бит к=2048 i=k*i  =>   i=i/k=32768/2048=16  бит n=2^16=65536 4)  a) 11  кбайт=11264 байт=90112  бит b) 10  кбайт=10240  байт=81920 бит c) 0,25  гбайт=256 мбайт=262144  кбайт