Дана действительная матрица размера 3х4. найти сумму элементов последнего столбца даной матрицы.

VAR: Array [1 .. 3,1 .. 4] целого;
J, I, сумма: число;
начинать
для I: = 1 до 3 сделать для J: = 1 до 4 делают КеайЬп ([I, J]);
для I: = 1 до 3 делаем суммы: = SUM + [I, 4];
WriteLn (суммы);
конца.