F= ¬A*B+A*¬B
F=A⊕B
------------------------
A B F
0 0 0
0 1 1
1 0 1
1 1 0
Всего шесть чисел: -3 -2 -1 0 1 2
4*6=24 байта
1 c 3 a 4 d 5 a
и все готово
Вставка-->Номер страницы--->Внизу страницы(ну или где там нужно).
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ArrRandom(10, 10, 90).Println.Sum.Println
end.