Дана матрица размера M × N. Для каждого столбца матрицы с четным
номером (2, 4, …) найти сумму его элементов. Условный оператор не ис-
пользовать.

Решить в Pascal.

const N = 4; M = 4;var A: array [,] of integer :=   (( 1,  2,  3,  4),   ( 5,  6,  7,  8),   ( 9, 10, 11, 12),   (13, 14, 15, 16));   i, j, s: integer;begin  writeln('Исходная матрица');  for i := 0 to N-1 do begin    for j := 0 to M-1 do      write(A[i,j]:3);    writeln;  end;    for i := 0 to (M - 1) div 2 do begin    s := 0;    for j := 0 to N - 1 do       s := s + A[j, i*2];    writeln ('сумма в столбце ', i*2:3, ' = ', s);  end;end.