Алгоритмы со структурой вложенных циклов. в качестве основы для выполнения используем двумерный массив а, содержащий m строк и n столбцов. составить на языке программирования pascal программу решения : вычислить произведение отрицательных элементов, стоящих на четных местах нечетных столбцов двумерного массива

#include <iostream>

#include <time.h>

#include<cstdlib>

#include <iomanip>

using namespace std;  

int main() {

setlocale(LC_ALL, "rus");

srand(time(NULL));

int m, n; //ЧИСЛЛО СТРОК , СТОЛБЦОВ  

int S=1; // БУДУЩЕЕ ПРОИЗВЕДЕИЕ  

cin >> m >> n; // ВВОДИМ ИХ

int A[m][n];           //ОБЪЯВЛЯЕМ МААССИВ  

for (int i = 0; i < m; i++) {            // ЦИКЛ ЗАПОЛНЕНИЯ МАССИВА СЛУЧАЙНЫМИ ЧИСЛАМИ  

 for (int j = 0; j < n; j++) {

  A[i][j] = rand()%200 - 100;

 }

}

for (int i = 0; i < m; i++) {

 for (int j = 0; j < n; j++) {// ЦИКЛ ВЫПОЛНЕНИЯ УСЛОВИЯ  

  if (A[i][j]<0&&j%2==1){

   if (i%2==0){

    S=S*A[i][j];

   }

  }

 }

}

for (int i = 0; i < m; i++) {// ВЫВОД МАССИВА  

 for (int j = 0; j < n; j++) {

  cout << setw(3)<<A[i][j]<< "    ";  

 }

 cout << endl ;  

}

cout << endl << S;// ВЫВОД ПРОИЗВЕДЕНИЯ  

return 0 ;

}