Ответ:
В книге Эрика Мэтиза .
https://codernet.ru/books/python/izuchaem_python_programmirovanie_igr_vizualizaciya_dannyx_veb-prilozheniya/
страница 225
I=4кб=4096 байт= 32768 бит
k=4096 символов
формула: I=i*k, отсюда выражаем i=I:k = 32768:4096=8 бит
2^8=256 символов
Мне кажется будет 5^5=3125 символов, если по частной формуле Хартли
const N=30;
var a : array [1..N] of longint;
i, j, p:longint;
begin
for i:=1 to N do readln(a[i]);
{...}
p:=1;
for i:=1 to N do
if A[i] div 10 <> 0 then
if A[i] mod 6 <> 0 then p:=p*A[i];
writeln('Произведение двухзначных элементов массива, которые не делятся на 6 = ',p);
<span>end. </span>