Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X чётное) И НЕ (X >= 11)

Мощность алфавита N=20
Из неё можно найти объём в битах, который требуется для одного символа по следующей формуле:
N=2^i
Где i - число бит, требующееся для одного символа
Т.к. 20 не соответствует ни одной степени двойки, берём большее число
2^4 < 24 < 2^5
N = 2^5
Отсюда i = 5 бит
Далее вычисляем, сколько бит требуется для одного пароля, для этого умножаем число бит для 1 символа на кол-во символов в пароле
5*10=50 бит
Переводим биты в байты, для этого делим на 8
50/8=6.25
Получившееся число округляем до целых в бОльшую сторону
Т. е. получается 7 байт на 1 пароль
Далее получившиеся байты просто умножаем на кол-во паролей и получаем ответ
30*7=210 байт

Type
    t = record
        name: string[15];
        mishours: integer
    end;

var
    list: array[1..10] of t;
    n, i, k0, k20: integer;

begin
    writeln('Введите количество учащихся');
    readln(n);
    
    k0 := 0;
    k20 := 0;
    for i := 1 to n do
        with list[i] do
        begin
            write('Фамилия имя = ');
            readln(name);
            write('Пропущенных часов = ');
            readln(mishours);
            
            if mishours <= 0 then k0 := k0 + 1;
            if mishours > 20 then k20 := k20 + 1
        end;
    
    writeln('Количество людей без пропусков = ', k0:3);
    writeln('Количество людей с пропусками больше 20 часов =', k20:3)
end.