Всекцию бокса принимаются мальчики, возраст которых не менее 12-ти лет.составить алгоритм приёма мальчиков в секцию бокса.

...
 if n>=12 then inc(k);
...
 А если по-русски то проверяешь условием если возраст больше 12 тогда true

1) в русском алфавите 33 буквы
       33-4=29 заглавных букв используются в идентификаторе 
            и 9 цифр    29+9=38 символов используется в идентификаторе
2)   2^5<38<2^6  --->  6 бит для кодировки одного символа
3)  6 бит * 6 символов=36 бит =[36:8] =5 -байт - целое кол-во байт для                                                                                      одного идентификатора
4)   5*180=900 байт≈1 Кбайт   < ответ
         или   900:1024=0,87891 Кбайта  < или такой ответ???

var

 n, k, s, sa: integer;

 

begin

 k := 0;

 s := 0;

 sa := 0;

 writeln('Введите последовательность, окончание ввода - число 0');

 repeat

   read(n);

   if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;

   if (n <> 0) and (n < 100) then inc(k);

   sa := sa + n

 until n = 0;

 readln;

 writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);

 writeln('Количество чисел, не больших 100, равно ', k);

 writeln('Сумма последовательности равна ', sa);

 readln

end.

Объяснение: