// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Print('Нулей:', ArrRandom(ReadInteger('n='), -10, 10)
.Println.Where(t -> t = 0).Count)
end.
256 Кбайт=8*1024*256 бит
<span>8*1024*256 бит/512/128=32 бит
</span>2^32=4294967296 цветов
Тонером (если интересно что это загугли)