Все правильно, получается квадрат. Попробуй запустить эти команды в "ЛогоМиры".
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(18, 2, 9);
a.Println;
WriteFormat('S = {0:###}', a.Where(t -> t > 0).Sum)
end.
<h2>5 7 8 4 3 3 9 8 7 5 6 9 8 7 2 7 8 4</h2><h2>S = 110</h2>
Декодируем первую фразу: <span>вражда не делает добра.
</span>Зашифруем вторую фразу: <span>олпср.</span>
=(((3+1/3)+19.5/(4+1/2))/(62/75-0.16))/((3.5+4+2/3+2+2/15)/(0.5*(1+1/20+4.1)))
Ответ: 2.875