MOJAB 24

program Main;

const
  N = 4;

type
  Matrix = array[1..N, 1..N] of integer;

var
  A: Matrix;
  i, j, sum: integer;

begin
  // Input elements of matrix A from user
  writeln('Enter the elements of the matrix A(4,4):');
  for i := 1 to N do
    for j := 1 to N do
      readln(A[i, j]);

  // Calculate sum of elements in main diagonal and above it
  sum := 0;
  for i := 1 to N do
    for j := i to N do
      sum := sum + A[i, j];

  // Display matrix A, elements above main diagonal and their sum
  writeln('Matrix A(4,4):');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(A[i, j]:5);
    writeln;
  end;

  writeln('Elements above main diagonal:');
  for i := 1 to N do
  begin
    for j := i+1 to N do
      write(A[i, j]:5);
    writeln;
  end;

  writeln('Sum of elements above main diagonal: ', sum);
end.