Решение задачи Matrix 83

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
# include "IOMatrix.h"

using namespace std;

int main ()
{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

  double A[RMAX][CMAX];
  int n;
  cout << "Введите порядок матрицы: ";
  cin >> n;
  input (A,"Matrix83.txt",n,n);  
  output (A,n,n);

   double sum;
   for (int row=0; row<2*n-1; ++row) {
      sum = 0;
      for (int col=0; col<=row; ++col) {
         if (col<n && row-col<n) {
           sum += A[col][row-col];
         }        
	  }
      cout << "Сумма элементов " << row << " диагонали,";
      cout << " параллельной побочной = " << sum << endl;
   }	
  system ("pause");
  return 0;
}

program Matrix83;
type
  matrix = array [1..10,1..10] of integer;
 
var
  a:matrix;
  Sum,M, i, j:Integer;
 
begin
 Write('M: ');
 Readln(M);
 
 for  j:=1 to M do
  begin
   writeln(j,': ');
   for i:=1 to M do
    begin
     Write(i,' : ');
     Read(a[i,j]);
    end;
  end;
 
 for j:=1 to M-1 do
  begin
   Sum:=0;
   for i:=1 to j do
     Sum:=Sum+a[i,j-i+1];
 
   Writeln(Sum);
  end;
 
 for j:=M-1 downto 1 do
  begin
   Sum:=0;
   for i:=1 to j do
     Sum:=Sum+a[M-j+i,M-i+1];
 
   Writeln(Sum);
  end;
end.