Дано число k (0 < k < 11) и матрица размера 4 x 10. найти сумму и произведение элементов k-го столбца данной матрицы. , нужно написать программу в паскале

Var j,i,k,sum,proizv: integer; a: array [1..4,1..10] of integer; begin proizv: =1; randomize; writeln('матрица: '); for i: =1 to 4 do   for j: =1 to 10 do   a[i,j]: =random(21)-10; for i: =1 to 4 do   begin   for j: =1 to 10 do   write(a[i,j]: 5);     writeln;   writeln;   end; writeln('введите к: '); read(k); for i: =1 to 4 do   begin   sum: =sum+a[i,k];   proizv: =proizv*a[i,k];   end; writeln('cумма чисел ',k,'-ого столбца: ',sum); writeln('произведение чисел ',k,'-ого столбца: ',proizv);   end.

мощность n=16

n=2^i где i-количество информации в символе

тогда i=4

информационный объем i равен i*k где k - количество символов в тексте

значит i =4*540=2160