Если мы кодировали в одну сторону, следовательно декодируем также, но только в обратную сторону.
а)друга ищи, а найдёшь - береги;
б)старый друг лучше новых двух.
Волк-полк-пола-поза-коза.
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
ОЮЮУОЮО вот вроде так должно быть, обращайся)