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