Просуммировать элементы столбцов заданной матрицы

[Mc_SteeL]

Помогите пожалуйста написать программу и блок схему на Паскале:

Просуммировать элементы столбцов заданной матрицы размером 4x3. Результат получить в одномерном массиве размером 3.

Заранее спасибо!!!

[Atoris]

пусть A[I,J] заданная матрица, где I строка.
=> надо сканировать по столбцам.

for J := 1 to N do
begin
  S := 0:
  for I := 1 to M do  
  begin
    S := S + A[I,J];
    if I = M then
      R[J] := S; //  заносим суммы элементов каждого столбца в массив
  end;
end;

воть