Дано
число 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.