Помогите с программой на паскале. матрица

Question

"Дана матрица целых чисел размером 3x4. Определите сумму каждого столбца этой матрицы. Результат вывести на экран" 
Ввод, вывод сделал, а насчет суммы понять не могу.

Марина · Accepted Answer

zn integer 
... 
в цикле (во втором вложенном) 
zn = zn + mas[i,j]; 
и выводи (внутри второго цикла)

Дарья · Answer

s1:=0; 
for i:=0 to 2 do 
begin 
s=s+a[i;0]; 
i:=i+1; 
End; 
s2:=0 
for i:=0 to 2 do 
begin 
s=s+a[i;1]; 
i:=i+1; 
End; 
s3:=0 
for i:=0 to 2 do 
begin 
s=s+a[i;2]; 
i:=i+1; 
End; 
for i:=0 to 2 do 
begin 
s=s+a[i;3]; 
i:=i+1; 
End; 
 
В синтаксисе могут быть ошибки, но идея должна быть понятна)