<em>
- эта строка означает, что будут рассматривать все значения под номерами от 1 до 14.</em>
<em>
- эта строка означает, что будут рассматриваться те переменные, значение которых больше 26</em>
<em>
- эта строка означает, что будет выводится число переменных, значение которых больше 26
При анализировании всех данных получаем, что ответ будет равен 7</em>
Var n: integer;
begin
read(n);
write((102 - n) div 3 * ((n + 2) div 3 * 3 + 99) div 2)
end.
Смотря как будет кодированно сообщение.