Дана матрица a(2,3), если ее первый элемент больше или равен нулю, то найти сумму элементов матрицы, иначе – их произведение (в кумире)

Алг нач   целтаб а[1: 2, 1: 3]   цел а, б   вывод "исходная матрица: ", нс   нц для а от 1 до 2       нц для б от 1 до 3           а[а,б] : = irand(-9,9)           вывод а[а,б], " "       кц       вывод нс   кц   вещ б   если а[1,1] > = 0       то           б : = 0           нц для а от 1 до 2               нц для б от 1 до 3                   б : = б + а[а,б]               кц           кц           вывод "сумма = ", б       иначе           б : = 1           нц для а от 1 до 2               нц для б от 1 до 3                   б : = б * а[а,б]               кц           кц           вывод "произведение = ", б   всё кон примеры работы программы: исходная матрица: -2 -2 5 -8 -6 5 произведение = 4800.0 исходная матрица: 0 2 0 8 9 4 сумма = 23.0 исходная матрица: 0 9 1 3 -9 9 сумма = 13.0

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var a: =matrrandom(4,3,-50,50); a.println(5);   writeln(5*a.colcount*'-');   foreach var c in a.cols do write(c.sum: 5); end. пример     44    30  -45     10    -9    -1     37    30    11     24  -16  -22   115    35  -57