Составить программу для решения задачи

#include <iostream>
#include <iomanip>
using std::cout;
using std::cin;
using std::endl;
using std::setw;
using std::fixed;

int main()
{
   const int n = 6, m = 6;
   int a[n][m];
   int value;

   for(int i = 0; i < n; i++)
   {
      value = 37 + i;

      for(int j = 0; j < m; j++)
      {
         a[i][j] = value -= 6;
      }
   }

   for(int i = 0; i < n; i++)
   {
      for(int j = 0; j < m; j++)
      {
         cout << setw(2) << a[i][j] << " ";
      }

      cout << endl;
   }

   cin.get();
   return 0;
}

program raf105;

var

 n,i,x,sum,pro,kol1,kol2: integer;

begin

 write('Введите N: ');

 readln(n);

 writeln('Вводите ',n,' чисел по очереди');

 pro:= 1;

 for i:=1 to n do

 begin

   readln(x);

   if x > 0

     then begin

       sum:= sum+x;

       kol1:= kol1+1;

     end;

   if x < 0

     then begin

       pro:= pro*x;

       kol2:= kol2+1;

     end;

  end;

  writeln('Количество положительных: ',kol1);

  writeln('Сумма положительных: ',sum);

  writeln('Количество отрицательных: ',kol2);

  writeln('Произведение отрицательных: ',pro);

end.

PascalABC 3.4.2