Программа

Program SumOfElementsForMatrix;
{ Определение суммы элементов 
  K-го столбца 
  матрицы S размерности M*N. }
Const M=3; { Количество строк }
      N=4; { Количество столбцов }
Var Sum:integer; { Переменная для набора суммы }
    S:array[1..M,1..N] of integer; { Описание рабочего массива }
    i,j:integer; { Служебные счетчики для организации циклов }
    K:integer; { Номер просматриваемого столбца }
BEGIN
  Sum:=0; { Обнуление суммы }
  for i:=1 to M do  { Цикл ввода строк }
    for j:=1 to N do { Цикл ввода элементов }
      Begin
        Write('Введите элемент S[',i,',',j,'] ');
          { Вывод приглашения ввода элемента массива }
        ReadLn(S[i,j])  { Ввод элемента массива }
      End;
  Write('Введите номер столбца [1..',N,'] ');
    { Приглашение ввести номер столбца }
  ReadLn(K); { Ввод номера столбца }
  for i:=1 to M do Sum:=Sum+S[i,K];
                               { Цикл просмотра K-го столбца и набор суммы }
  WriteLn('Сумма элементов с четными индексами ',Sum)  { Вывод результата }
END.