Данная область показана на скриншоте:
33 +10 =43 различных символов для номера
2^6 >≈ 43 ---> 6 бит для кодировки одного символа
6 * 6 =36 бит для кодировки одного номера =36 : 8 = [6 байт]
В условии нет концовки, должен быть вопрос: сколько памяти занимает n-е количество номеров
6 * n = ........байт
var a,b,c:array[1..100] of integer;
i,n:integer;
begin
n:=1;
for i:=1 to 25 do
begin
a[i]:=random(20)+100;
write(a[i],' ');
if (i > 14) and (i <21) then n:=n*a[i];
end;
writeln;
write('Произведение=',n); writeln;
end.