Информационное сообщение объемом 1, 5 кбайт содержит 3072 символа сколько символов содержит алфавит при которого было записано это сообщение

2,0 кбайт содержит 6144

//Pascal ABC.NET v3.1 сборка 1172

var
  ar: array of integer;
  n, k2, k3, k4, k5, i: integer;
  r: real;

begin
  write('Сколько учеников?');
  readln(n);
  setlength(ar, n);
  writeln('Введите оценки:');
  for i := 0 to n - 1 do
  begin
    readln(ar[i]);
    case ar[i] of
      2: inc(k2);
      3: inc(k3);
      4: inc(k4);
      5: inc(k5);
    else
      writeln('Не оценка');
      exit;
    end;
  end;
  writeln('2:', k2);
  writeln('3:', k3);
  writeln('4:', k4);
  writeln('5:', k5);
  write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1);
end.

Пример ввода:
Сколько учеников?6
Введите оценки:
2
2
3
4
5
5
Пример вывода:
2:2
3:1
4:1
5:2
Успеваемость=66.7

Смотри, выписываешь все числа на бумагу.
1.Смотришь первый шаг: максимальная сумма 2-значных чисел это 18 (9+9), минимальная 1 (1+0), то есть больше 18 .
2-ой шаг - максимальное произведение это 27 (9*3), а минимальное 0 (0*3) или 3 (1*3).
3.Каждое число делишь (чертой) на 2 числа. (2 |1, 7|3, 9|4, 72|9, 12|9, 15|14, 27|18, 29|12
4.смотришь чтобы ни одно число не было больше 27, а если такое есть, то другое число должно быть меньше либо равно 18. 7|29 и 29|12 сразу зачеркиваем, так как они не подходят.
Далее смотришь, числа по невозрастанию должны быть, так что 
4.Дальше надо считать:
1-е число:2 и 1. Неподходит, так как ни одно число не подходит в диапазон умножения (оно не равно 3-м или нулю). Зачеркиваем.
2-е число 7 и 3. число 7 не делится нацело на 3, возможно, что оно произошло при сложения (4 и 3 например). 3 тоже подходит (3*1)
Оставляем.
3-е число 9 и 4 Подходит (3*3 и 2+2)
4-е число 72 и 9 мы его зачеркнули
5-е число 12 и 9 Подходит (4*3 и 6+3)
6-е число 15 и 14 Подходит (5*3 и 7+7)
7-е число 27 и 18 Подходит прям впритык (9*3 и 9+9)
8-е число 29 и 12 Мы его зачеркнули
ответ: 5 чисел.

Возможно, тебе мой метод непонятен, так что обратись к другим источникам, или налегай на другие задания. 
Удачи)))