Матрица 4х6. Произведение в строке №3 пожалуйста СРОЧНО!!!!!!!!!!!!

Var a:array[1..4,1..6] of integer;
i,j,p,n:integer;
begin
p:=1;
n:=1;
for i:=1 to 4 do
  for j:=1 to 6 do
  read(a[i,j]);
for j:=1 to 6 do
p*=a[3,j];
writeln(p);
end.

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