Решить в паскале если можно: дана целочисленная матрица х(6 х 7). заменить нулями положительные элементы с четной суммой индексов

// pascalabc.net 3.3, сборка 1541 от 29.09.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходная матрица ***');   var a: =matrrandom(6,7,-99,99);   a.println(4); writeln(4*a.colcount*'-');   for var i: =0 to a.rowcount-1 do       for var j: =0 to a.colcount-1 do           if (a[i,j]> 0) and (i+j).iseven then a[i,j]: =0;   writeln('*** результирующая матрица ***'); a.println(4) end. пример -74  73  61  97  96  52 -23   77 -99 -79  48  67  -3 -23   63 -61 -26  28 -99  89 -13   -85  43 -14  85  -8  91 -70   -68  90  71 -23  94  67 -81   -69 -52  44  47  96 -48  89 *** результирующая матрица ***   -74  73    0  97    0  52 -23   77 -99 -79    0  67  -3 -23     0 -61 -26  28 -99  89 -13   -85    0 -14    0  -8    0 -70   -68  90    0 -23    0  67 -81   -69 -52  44    0  96 -48  89

кнопка переключения градусов руля