Текс состоит из 10 страниц на каждой странице 60 строк и в каждой строке по 70 символов. определить информационный объем текста если мощность алфавита равна 32 символам

Для начала , найдем i(вес 1 символа) по формуле N=2^i N(Мощность алфавита) 32=2^5 ; значит i=5 бит,  а как нашел то что 5, я просто 2×2×2×2×2=32 кол.двоек означает вес 1 символа.
Теперь, чтобы найти I(Обьем текста )=(кол.страниц×кол.строк×кол.символов×вес 1 символа)
I=10×60×70×5=210'000 бит .
210'000÷8=26'250байт=26'250÷1024=25.63кбайт(килобайт)
ответ:25.63кбайт обьём текста
P.S: Знак (') я писал, чтобы легче было распознать число.

Uses Crt;

Const
   N = 39;
Var
   X:array[1..N] of integer;
   i,j,k:integer;

Begin
Randomize;
ClrScr;
k:=0;
WriteLn('Исходный массив: ');
For i:= 1 to N do
    Begin
    X[i]:=random(53)-15;
    if X[i]<30 then
       Begin
       TextColor(12);
       k:=k+1;
       End
    else TextColor(7);
    Write(X[i],' ');
    End;
WriteLn;
WriteLn;
TextColor(7);
WriteLn('Числа, меня тридцати: ',k);
WriteLn;
WriteLn('Упорядоченный массив: ');
For i:= 1 to N do
    For j:= 1 to N-1 do
        if X[j]>X[j+1] then
           Begin
           k:=X[j+1];
           X[j+1]:=X[j];
           X[j]:=k;
           End;
k:=0;
For i:= 1 to N do
    Begin
    Write(X[i],' ');
    j:=X[i];
    While j div 10 <> 0 do
       j:=j div 10;
    if (j = 2)or(j = -2) then
       k:=k+1;
    End;
WriteLn;
WriteLn;
WriteLn('Числа, начинающиеся с двойки: ',k);
ReadLn;
End.

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
const
    n = 200;

var
    primes: array of integer;

begin
    primes := ArrGen(n, i -> i);
    
    for var i := 2 to round(sqrt(n)) do
    begin
        if not (primes.Contains(i)) then
            continue;
        var e := SeqWhile(i*i, x -> x + i, x -> x <= n);
        primes := primes.Except(e).ToArray;
    end;
    
    writeln('Простые числа < ', n, ':');
    writeln(primes);
    writeln;
    writeln('Время вычисления: ', Milliseconds / 1000);
end.