Придумай систему команд для садівника, який може саджати дерева і збирати плоди

Алг
нач
  целтаб А[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